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pagar, faz sua programação financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple® 

E, como todo business Computer 


De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc: a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 


Apresentamos o 

TK 20001 
Be rada o programa 
mais famoso 
do mundo. 


que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora e já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000II, nas 
versões 64K ou 128K de memória. 

A mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 


Preço (128 K): 

CrS 2.949.850 


AHCRODIGII4L 

computadores pessoais 



* Sujeito a alteração sem prévio aviso. 


® Marca registrada da Visicorp. Filiada à ABIC0MP ® Marca reyistrada da Apple Computer. 
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€ DITORIRL 


A informática brasileira mostrou,durante a realização dos seus dois maiores 
eventos, um real amadurecimento, seja por parte do material apresentado 
na Feira, e pelos temas discutidos no Congresso ou pelo teor político que 
revestiu todo o Evento. 

Este ano não houve a parafernália de inúmeros lançamentos na linha dos 
micropessoais, mas sim uma procura grande de informações, por parte dos 
usuários que buscaram,principalmente, o que as empresas estavam apre¬ 
sentando em softwares e periféricos. 

Uma das tendências da Feira foram os lançamentos de micros de linhas 
mais superiores, voltados a aplicações profissionais. 

Equipamentos de 8 bits e de 16 bits registraram a tendência da próxima 
temporada. Ligados entre si, formando redes, esses computadores demons¬ 
traram que a informática no Brasil já superou a sua fase inicial, graças a 
própria evolução do uso que os usuários fazem de seus equipamentos. 

Nesta edição dedicamos a Microhobby para este grande evento da área, 
que mereceu, este ano a atenção de vários setores da sociedade civil. 

O "Micropress" foi todo ele voltado à cobertura do Congresso e da Feira 
de Informática. Apresentamos os lançamentos, em periféricos e softwares; 
a tecnologia nacional mostrada pelas universidades,e os melhores momen¬ 
tos das palestras e debates. 

As seções habituais não foram esquecidas e acredito que os outros arti¬ 
gos deste número deixarão vocês bem satisfeitos. 


Ana Lúcia de Alcântara 
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Se você possui um 
TK 2000, de hoje em 
diante não pode mais 
dispensar os programas 
Microidéia para o seu 
micro. 

Com eles, você con¬ 
trola estoques, custos, 
receitas e contas bancá¬ 
rias. Programa as finan¬ 
ças domésticas e as de 
suas empresas. E cadas¬ 
tra seus clientes, forne¬ 
cedores ou amigos. 


0 software Microidéia 
vai transformar seu 
TK 2000 numa podero¬ 
sa ferramenta profissio¬ 
nal, pessoal ou domésti¬ 
ca. Capaz de realizar em 
segundos tarefas que 
lhe tomavam um grande 
tempo e esforço. 

Totalmente desenvol¬ 
vidos no Brasil, todas as 
instruções de tela e ma¬ 
nuais são em português. 
E toda vez que lançar¬ 
mos uma nova versão 


de um software, você 
poderá trocá-la por seu 
programa original. 

Em cassete ou 
diskette, já temos para 
TK 2000: Orçamento 
Doméstico, Controle 
Bancário, Mala Direta, 
Mini Banco de Dados, 
Fluxo de Caixa, Contas 
a Pagar, Contas a Rece¬ 
ber e Controle de Esto¬ 
ques, todos compatíveis 
com o Apple e 
TK 2000 II. 


Procure já um dos 
nossos revendedores e 
abra seu TK 2000 para 
o software Microidéia. 

E sinta uma nova estre¬ 
la nascendo ao seu lado. 

Mas, se em sua cida¬ 
de não tem revendedor 
Microidéia, peça qual¬ 
quer um destes progra¬ 
mas pelo correio. 

Em cassete eles 
custam Cr$ 55 mil. 

Em diskette, o preço 
é Cr$ 250 mil. 


TK 2000. Open for 
Software Microidéia. 



------T 

Programa K7 Disk Quant. Preço 


TOTAL 


Sim! 

Quero adquirir 
o(s) seguinte(s) 
programa(s) 
Microidéia: 


Estou enviando um cheque do banco _ 

_de n.°_nominal à Microidéia Ltda. 

Microidéia Nome _ 

Caixa Postal 6151 End. __ 

20022 / Rio de Janeiro / RJ Bairro _Cidade _ 

_ Tel.:_CEP_ 

L J Envie-me um catálogo Micro _ 

de programas Microidéia. 



























Prezado Senhor, 


Lendo sua revista, vi que vocês querem que os 
leitores lhes enviêm sugestões; a minha é de que 
vocês escrevam mais artigos sobre o TK 2000 CO¬ 
LOR, fazendo programas de jogos, e indicando 
software disponíveis, e editando também os seus 
respectivos preços. 

Seria bom também que editassem programas em 
Assembly. 

Alex Settini Sohler. 

Valença - RJ. 


Caro Alex, 

Cartas sugestivas como a sua é que fazem com 
que a MICROHOBBY atenda da melhor forma 
possível, os seus leitores, melhorando dessa ma¬ 
neira, a nossa linha editorial. Suas sugestões são 
muito válidas. É através das opiniões de nossos lei¬ 
tores que a Revista evolui. Anotamos todas as suas 
dicas em nosso arquivo de pautas e tão logo seja 
possível as incluiremos nos temas de posteriores 
edições. 

Prezado Senhor, 


A dúvida é a respeito do modo de edição do 
TK-2000. Como devemos proceder após ter dado 
entrada numa linha de um programa, se observar¬ 
mos nesta linha algum erro? 

Paulo Florêncio S. de Menezes. 
Manaus - AM. 


Caro Paulo, 

Se você não possui o programa “EDITOR” de¬ 
senvolvido pela Microsoft o único recurso que lhe 
resta é a redigitação de toda a linha. 

O “Editor” éum programa em Linguagem de 
Máquina, que foi desenvolvido com o objetivo de 
auxiliar os usuários em seus trabalhos de edição 
em programação Basic, para o TK-2000. Para ob¬ 
ter maiores informações ligue para o Setor de 
Apoio ao Usuário da Microdigital Eletrônica, no 
telefone: 255-0366/r.61 e fale com o Dirceu. 

Prezado Senhor, 


Elaborei um programa totalmente em BASIC, 
muito longo, que mais ou menos no meio do pro¬ 
grama, cada linha que se dava entrada, o vídeo se 
alterava e, quando listei o programa só havia 1/3 
do que tinha digitado. Consultando o manual, des¬ 
cobri o meu erro, deveria digitar MP para liberar 
a memória e assim o fiz. Salvei o programa em fi¬ 
ta K-7 e agora este só entra digitando-se MP antes 
de LOA D T Como fazer para que este sistema se¬ 
ja automático, como nas fitas já gravadas? 

2 - Há um meio de “entrar” num programa blo¬ 
queado? Como? 

Pedro Antonio Ribeiro 
São Paulo - São Paulo. 


Caro Pedro, 


Para acionar o comando MP, automaticamen¬ 
te, durante o carregameno de um programa, é pre¬ 
ciso criar uma rotina em Linguagem de Máquina. 
Além disso,há necessidade de descobrir qual o en¬ 
dereço correspondente a este comando para que 
a partir deste, você possa fazer MP ser acionado 
automaticamente. 

É comum os usuários encontrarem programas 
que estejam bloqueados, mas isto não significa que 
seja impossível penetrá-los. Porém é nenecessário 
ter um bom conhecimento de Linguagem de Má¬ 
quina, para poder descobrir qual o endereço ini¬ 
cial da rotina, usada para bloqueá-lo. 


Prezado Senhor, 


Esta tem a finalidade de parabenizá-los pelo ex¬ 
celente nível que a revista vem alcançando. 

Gostaria de estender as congratulações ao A roí¬ 
do P. Carvalho pelo seu magnifico artigo - “Ex¬ 
plorando a alta-resolução TK-2000”. É um progra¬ 
ma de grande utilidade e fácil manuseio. 

Gostaria, no entanto, de avisar que o dito pro¬ 
grama contém dois erros de digitação: o primeiro 
é tão evidente que não passa desapercebido a nin¬ 
guém: na linha 855, em vez de “OR” esta “IR”. 

O segundo erro é mais difícil de achar, pois com 
o ONERR GOTO ativado, não acusa erro de Sin¬ 
taxe. O erro está na linha 930 - está faltando dois 
pontos (:) entre O’;’ e o HTAB 36. 

Estes dados referem-se a rotina da cópia do já 
citado programa, e está na MICROHOBBY 21; 
pág. 52. 

Esperamos que novos programas excelentes co¬ 
mo este continuem a ser apresentados. 

J.J. de Araújo Moura Filho 
Rio de Janeiro - RJ. 


Caro J.J. de Araújo, 


Agradecemos seus votos de parabéns. Isto nos 
faz ter a certeza de que estamos no caminho cer¬ 
to. Suas congratulações nos tornam realizados e 
nos alertam, ao mesmo tempo, com referência as 
nossas falhas. 

Prezado Senhor, 


Gostaria de pedir-lhes o obséquio de indicar-me 
a maneira de adaptar o jogo “Base Lunar” publi¬ 
cado na MICROHOBBY nro. 21 para o uso do 
“joystick” pois tal como está os movimentos da 
mira na tela não correspondem aos movimentos 
feitos com o “joystick”. Aliás, parabéns ao Sr. Fá¬ 
bio Polonio pelo excelente visual do jogo. 

Theodomiro Aguiar 
Petrópolis - RJ 


Caro Theodomiro, 


Nosso programador agradece seus elogios. 
Quanto a informação solicitada, a respeito do Joys¬ 
tick no TK 90X, proceda da seguinte maneira: na 
linha 950 altere os números que foram definidos 
para o teclado. 

Para a opção de uso do joystick, utilize os nú¬ 
meros 6, 7, 8, 9 e 0. Os números 6 e 7 correspon¬ 
dem aos movimentos laterais para a esquerda e di¬ 
reita, respectivamente. Os números 8 e 9 são para 
os movimentos verticais, de descida (8) e subida 
(9). Para atirar, utilize o número 0. 

Prezado Senhor, 


Sou assinante da MICROHOBBY desde práti¬ 
camente o início e não tenho críticas a fazer, mui¬ 
to pelo contrário sou apreciador e já fiz vários ami¬ 
gos assinarem também.Posso fazer um pedido? Por 
razões óbvias solicito mais intruções sobre o TK 
2000 e como adaptar programas para Apple para 
o TK. 

Muito grato. Parabéns e votos de muito sucesso. 

Antonio Alberto P. da Silva 
Belo Horizonte - MG 


Caro Antonio, 


Foi com grande satisfação que a equipe da MI¬ 
CROHOBBY recebeu sua carta. Nosso principal 
objetivo não é apenas manter nossos leitores bem 
informados, mas também fornecer o suporte ne¬ 
cessário para que possam utilizar seus equipamen¬ 
tos em toda totalidade. 

Para isto, tentamos solucionar as dúvidas da me¬ 
lhor forma possível. Quando não está ao nosso al¬ 
cance procuramos nos informar em outras fontes 
para respondê-las. 

São cartas como a sua que tornam nosso traba¬ 
lho ainda mais credibilizado. 

Quanto ao seu pedido sobre adaptação do Ap¬ 
ple ao TK-2000, solicito-lhe que se comunique com 
o Setor de Apoio ao usuário do fabricante deste 
equipamento. 
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Clube de Usuários 


TK-82C/83/85 

Diarone Broilo 

Caixa Postal 324 

95100 - Caxias do Sul - RS 

Eduardo Saita 

Rua Ernesto Onizzolo 157 
13290 - Louveira - SP 

Fernando Antonio Silva 

R. Noronha Torrezão 141 - ap. 304 
24240 - Niterói - RJ 

H.S. Ferreira 

Caixa Postal 81825 
27500 - Resende - RJ 

José Afonso P. Ferreira Terttius 

Shin Ql 4 Cj.1 casa 21 - Lago Norte 
71500 - Brasília - DF 

José Carlos Rodrigues 


R. Antonio Bento 226 - ap. 24 
11100 - Santos - SP 


TK-2000/2000II 

Alexandre Lauria Ribeiro 

R. Bolivia 26 

12280 - Caçapava - SP 

Alexandre Maia Cardoso 

R. Guimarães Rosa 143/1607 - Barra Tijuca 
22700 - Rio de Janeiro - RJ 

Altair Mario Wielewski 

Caixa Postal 31 
87530 - Xambre - PR 

Carlos Alberto Rocha Sobrinho 

R. Subtte. Francisco Hiero 165 
80000 - Curitiba - PR 

Cláudio N. de Carvalho 


R. Paulino Teixeira 2235/703 
90000 - Porto Alegre - RS 

Edy Belmonte Kich 

R. Honorato Toniolo 76 
90000 - Porto Alegre - RS 

Observação 


Para ter seu nome publicado, envie corres¬ 
pondência para:Microhobby, Clube do 
Usuário, Caixa Postal 54096, São Paulo - 
SP - CEP 01296. Indique o computador 
que possui, as interfaces e a sua área de 
interesse. Nosso clube está aberto a usuá¬ 
rios de: TK-82/83, TK-85 e compatíveis, 
TK2000, Apple e compatíveis. É bastan¬ 
te útil a sua opinião e sugestão para me¬ 
lhorarmos esta seção. Escreva nos tam¬ 
bém sobre suas experiências e de seus 
amigos. Estamos aguardando. 


SEU MICRO EXPLORADO AO MÁXIMO! 


0 SOFTWARE CIBERTRON, já tradicional no TK 85 e consagrado pelos peritos como a 
melhor opção para o TK 2000, está agora disponível também para o moderníssimo 
TK 90X com as mesmas características de qualidade: Sistema Multigravação, poderc) 
sas rotinas em linguagem de máquina e instruções detalhadas. Qualquer que seja 
o seu TK, explore-o ao máximo com CIBERTRON SOFTWARE. 


TK2000 TK90X 


Falcons 

Xadrez 

Bolo 

Eliminator 
Space Eggs 
Grand Prix 


Simulador de Voo 
Ceiling Zero 
Gamma Goblins 
Os Utilitários: 
Graphs 2000 
ROM 2000 


Inquestionavelmente o melhor 
software produzido p/ TK 2000. 


Simulador de Voo (Manual em Português) 
Túmulo do Drácula (Tridimensional) 
Pac-man e Campo Minado 
Alta resolução gráfica, som e cores. 

T K 8 5 

Pinball Corrida Milionária 

Tourada TK Word (Aplicativo) 

Outros 12 programas em nossa lista. 


Se você preferir,envie cheque nominal cruzado à Cibertron Eletrônica Ltda - Caixa 
Postal 17.005 - CEP 02399 SP, para receber os programas em sua casa. Remessas em 
3 dias úteis. Jogos a Cr$23.900 cada - Utilitários e Simulador de Voo para TK 2000 
e TK 90X Cr$29.800 cada - TK Word e Simulador de Vôo para TK 85 Cr$25.000 cada. Ga¬ 
rantia integral. Encontre toda linha Cibertron na Hagnodata Tel. (011) 255 7653. 












RESENHA DE SOFTWARE 


Este programa educativo, desenvolvido 
pela Multisoft Informática Ltda., destina- 
se ao micro pessoal da linha TK 90X. 

Tentando familiarizar a criança desde pe¬ 
quena com o micro, a empresa criou um 
programa voltado para o público infantil, 
que permite à criança desenvolver sua 
imaginação e criatividade, manipulando fi¬ 
guras animadas. 

Apesar de ser um programa educati- 
vo,"Rancho" ao mesmo tempo que ensi¬ 
na, permite que a criança brinque, evitan¬ 
do dessa forma a monotomia do software. 

Características Gerais do Programa 

O programa é composto de quatro tipos 
de telas: 

1 - tela de composição; 

2 - telas dos Elementos (no caso são 
duas); 

3 - tela de Utilidade. 

Para se manejar o programa utiliza-se 


Você que sempre desejou participar de 
uma Olímpiada para poder mostrar suas 
qualidades como atleta, mas nunca teve 
uma oportunidade, agora, sem fazer mui¬ 
to esforço e utilizando um micro pessoal, 
você poderá reunir seus amigos e 
demonstrar-lhes o que é preciso para se 
tornar um verdadeiro atleta. Destinado ao 
TK 90X, Decathlon foi desenvolvido pela 
Multisoft e será comercializado em fita 
cassete, acompanhado de um manual de 
instruções. 

Características gerais do programa 

Após o processo habitual de carga do 
programa,surgirá na tela um menu de op¬ 
ções de controle. 

Você deverá selecionar 1 ou 4 (respec- 


Rancho 

Marcos Lorenzi 


um único cursor, que é comandado por 
cinco tipos de teclas. Este ainda possui um 
menu de comandos para as composições 
com seis opções. 

Funcionamento do Rancho 

Terminada a carga do programa, efetua- 
se a montagem e animação da tela de de¬ 
monstração. Para iniciar o jogo pressione 
a tecla SPACE. Você pode manipular o cur¬ 
sor para os comandos que desejar, utilizan¬ 
do as teclas de manipulação do mesmo. 

O usuário poderá animar o jogo com mú¬ 
sica, controlando a melodia; reproduzir ele¬ 
mentos na tela de composição, quantas 
vezes desejar e apagar as figuras que se 
apresentam na tela. 

Caso o usuário queira alterar as cores, 
poderá fazê-lo de acordo com o seu esti¬ 
lo, ou até mesmo mudar as figuras de po¬ 
sição, modificando o aspecto inicial da te¬ 
la. A animação das personagens é feita in¬ 
dividualmente, bastando apenas ir selecio¬ 
nando as figuras que serão animadas. Vo¬ 
cê poderá fazer os elementos viajarem. 


mas é possível fazê-lo somente com uma 
figura de cada vez. 

O programa permite que se introduza 12 
figuras de uma só vez, bastando apenas 
selecionar as figuras na tela dos elemen¬ 
tos, e trazê-los para a tela de composição. 

Para gravar ou ler o que foi realizado, 
basta seguir as intruções que estão no ma¬ 
nual que acompanha o programa, onde as 
explicações estão muito bem detalhadas 
e são de fácil entendimento. 

Comentários Finais 

Por ser um programa educativo voltado 
ao pessoal infantil, não apresenta dificul¬ 
dades de entendimento. 

Com alguns contatos com o material e 
tendo alguém para dar as dicas de como 
utilizá-lo o jovem usuário estará apto a criar 
e desenvolver qualquer tipo de animação, 
que bem desejar. Além do mais, ele esta¬ 
rá também se familiarizando com o micro. 
Em breve este software estará sendo co¬ 
mercializado no mercado, e poderá ser en¬ 
contrado nos revendedores Fotóptica. 


Decathlon 


Marcos Lorenzi 


Participe dos jogos olímpicos 
utilizando o 90X. 

tivamente teclado e joystick). Se a opção 
foi 1 (teclado), então o usuário deverá de- 
termiminar se as teclas de comando serão 
modificadas ou não, ficando ao seu crité¬ 
rio a opção. Em seguida, por meio de te¬ 
clado ou joystick, você introduzirá suas ini¬ 
ciais para que constem no placar caso se¬ 
ja classificado. 

Voce participará de cinco provas do De- 
catlon (modalidade esportiva composta por 
dez provas), nas quais seu objetivo será a 
obtenção do menor tempo e o maior nú¬ 
mero de pontos. O tempo mínimo exigido 
(mostrado no placar) para classificação é 
regressivo, o que torna a prova mais difí¬ 
cil à cada etapa. 

O placar exibe suas iniciais, o resultado 
obtido nas tentativas, os pontos acumu¬ 
lados e o tempo mínimo necessário para 


a classificação. 

O jogo apresenta uma ótima resolusão, 
preocupando-se com os mínimos detalhes, 
para tornar o jogo o mais realístico possí- 
vel.Os efeitos sonoros, muito bem defini¬ 
dos para cada situação, transmitem a vo¬ 
cê a sensação de estar realmente num es¬ 
tádio olímpico. 

Comentários finais 

Sua atenção estará voltada para um úni¬ 
co ponto, o seu vídeo, onde sua preocu¬ 
pação será baixar os tempos das provas 
e superar os recordes já existentes. 

Este jogo atrairá tanto o público jovem 
como o de meia idade, mas só vencerá 
aquele que tiver maior fôlego e melhor pre¬ 
paro físico (pelo menos nos dedos...). 
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Alta-Resolução para TK 85 


Visando explorar ainda mais a capacida¬ 
de que este equipamento possui em grá¬ 
ficos, resolvemos publicar um artigo que 
permita introduzir alta-resolução no TK 85. 

Este programa abre espaço para que o 
usuário possa elaborar programas em alta- 
resolução, ou até mesmo carregar progra¬ 
mas pré-elaborados que tenham esta ca¬ 
racterística. Este é armazenado na RAM- 
TOP do equipamento, incluindo a tela de 
alta-resolução e o conjunto de caracteres 
(UDG), ocupando 7000 bytes de memória. 

Como o usuário deve operar 
o carregador Hexadecimal 

Em primeiro lugar o usuário deverá criar 
uma linha REM (97caracteres) e editá-la 
até que obtenha linhas REM de 1 a 7. Em 
seguida, introduzir POKEs na sequência 
mostrada na tabela 1 como comando 
direto. 

Para verificar se as linhas REM estão 
com o tamanho correto, digite a seguinte 
sentença: 

PRINT PEEK 16396 + 256 * PEEK 
16397 

Se surgir na tela o seguinte resultado: 
17230, significa que está correto. Então 
ele deve digitar o programa apresentado 
na tabela 2. Após a digitação deve-se ro¬ 
dar o programa. Surgirá em sua tela uma 
linha " 0 REM", mas o programa não apa¬ 
recerá no vídeo. Então, deve-se "deletar" 
as três linhas do programa que o usuário 
digitou e entrar com o programa "Carre¬ 
gador Hexadecimal". 



putador perguntará por um código de qual¬ 
quer caractere, ou seja, um número entre 
(2-63). Em seguida, ele pedirá que o usuá¬ 
rio entre com oito números para construir 
o UDG. Completada a definição do UDG, 
ele terá duas opções para escolha: na pri¬ 
meira ele poderá salvar o conjunto de ca¬ 
racteres, incluindo o programa BASIC com¬ 
pleto, em fita ou não. Caso a opção seja 
negativa, estas serão automaticamente ar¬ 
mazenadas na RAMTOP. 

Quando o programa BASIC estiver arma¬ 
zenado na RAMTOP, o usuário poderá criar 
seu próprio programa ou carregar um pré- 
existente. Nos dois casos citados, o pro¬ 
grama deverá iniciar-se em RAND USR 
25614, pois esta instrução colocará o 
computador no modo de alta-resolução e, 
na finalização do mesmo, deverá ser usa¬ 
do RAND ÜSR 25602, passando o equi¬ 
pamento para o modo normal. O usuário 
poderá transformar a tela em altaresolu- 
ção, usando como comando direto RAND 
ÜSR 25686 e RAND USR 25626 para lim¬ 
par a tela quando esta estiver no modo de 
alta-resolução. 

Para remover um caractere da tela no 
modo de alta-resolução, o usuário deverá 
usar PRINT CHR $ (1), pois a rotina de 
transformação executa apenas remoção 
de CHR $ (1) e não CHR$(0) da tela no mo¬ 
do normal. 

O usuário não pode esquecer de que 
nunca deverá usar o comando SCROLL, 
porque este poderá causar um "Crash" no 
equipamento. 


156 IS 

_ 

9202CD2002DD212D 

_ 

5 5 5 

15526 

- 

5 4- ü 3 H 4- 0 P 3 9 P P 0 C 4- 0 

— 

o 14 

15634 

_ 

’ 7: 1 1 0 0 "7 0 F: ’ 1 / j— r~ j*~ 

— 

R55 

15542 

- 

002S0BFE01200236 

- 

334 

15550 

- 

0 0 Ü 5 Ü D 8 4-6 4- C12 3 7E 

- 

355 

15555 

- 

F E76 2 00C 2 3 E B C 5 01 

- 

5 5 4 

16 5 6 5 

- 

E90009EBC110DFC9 

- 

1110 

15 6 7 4 

- 

1318 D B E 5 D 5 21H C 6 4- 

- 

1003 

15 5 5 2 

- 

C 6 3 1“ © 6 8 04- r C B 21C B 

- 

517 

15530 

- 

10CB21CB10ÜB21CB 

- 

310 

15535 

- 

100 9EB0608 19 ,7713 

- 

435 

15705 

- 

D 511210 019 D110 F 5 

- 

755 

15714 

- 

D1E1C9 - 635 



15514 

- 

767621006422044- 0 

- 

471 

15522 

- 

21H1401100640IBS 

- 

557 

15530 

- 

02cD d0UDC3 030000 

- 

‘ó 1 «Z* 

15535 

- 

0 0 7 6 0 0 029 E 0 2 E 9 7 6 

- 

545 

16 54 5 

- 

7 6 C D 2 H 0 H 3 E1E E D 4 7 

- 

77R 

15554 

- 

DD218102C9CD 1P;64 

- 

317 

15552 

- 

3E08ED47DD212D64 

- 

777 

15570 

- 

892108570EC00620 

- 

551 

15575 

- 

36 9 E 2 310 F B 3 6 8 92 3 

- 

504 

15555 

- 

3D 2 0 F 3 8 9210 FE 611 

- 

332 

15534 

- 

2100F30EFE361610 

- 

555 

15502 

- 

F E0 6 80E D 7 8 D 3 F F19 

- 

1300 

15510 

- 

8 D55640582 38 6 4 8 D 

- 

354 





Tabela 3 


Durante a digitação do carregador he¬ 
xadecimal, só aparecerá a linha "0 REM". 
No caso do usuário se perder na digitação 
do programa, a melhor saída é editar a úl¬ 
tima linha digitada. 

Ao final da digitação ele deve executar 
o programa, que pedirá ao usuário que en¬ 
tre com o endereço inicial e final e então 
permitirá iniciar-se a digitação dos códigos 
em hexadecimal que estão expostos na ta¬ 
bela 3. Ao final da digitação dos códigos 
hexadecimais, o usuário irá "deletar" o pro¬ 
grama "Carregador Hexadecimal",linha por 
linha, para em seguida entrar direto com 
o programa BASIC (listagem 2). 

Em seguida, entrar com o programa BA¬ 
SIC (listagem 2). Para salvá-lo dê um 
"auto-RUN", utilizando "GOTO 350". 

Trabalhando com a 
Alta-Resolução 

O programa, que contém os códi- 
gos,transforma a tela normal de texto em 
uma tela de alta-resolução e o código de 
um caractere qualquer no modo normal de 
tela, correspondem a oito códigos do UDG. 

Ao rodar o programa BASIC, o usuário 
deverá responder se deseja definir o UDG 
ou não. Se a resposta for negativa, o pro¬ 
grama será armazenado na RAMTOP, 
incluindo-se o conjunto de caracteres que 
permanecerá vazio. O conjunto de carac¬ 
teres se inicia no endereço 16717, e na 
RAMTOP no 25772. 

Se a resposta for positiva, então o com¬ 
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QQ 
100 
110 
120 
130 
140 
150 
150 
170 
130 
190 
200 
210 
220 
230 
DE R 
240 
250 
2 5 0 
270 
230 
290 
MT E 5 ' 
300 
310 


rem 

P R INT • : FNDERECÜ IMIC IRL !! 
INPÜT I 

RRIMT :! ENDEREÇO FINRL" 

INPÜT F 

FÜR N=I TÜ F 5TEP 8 

LET T =0 

PRIMT N; !! - 

INPÜT Hi 

PRINT Hi; :: - ; 

INPÜT TOT 
PRINT TOT 
LET 2=0 

FÜR E =1 Tü LEN R$ STEP 2 
LbT ü = CCÜDh Pê- (E) -23) *15+00 
ê CE + 1) -23 
LET T=T+C 
PQKfc N+Z:C 
LET Z=Z+1 
NEXT K 

IF TOT =T THEN GOTO 310 
PRINT ' ENTRE P NÜUPME 

GOTO 150 

NfcX i N Listagem 1 


•=: 

rem mmsá 


5 

REM 


10 

HEM HBÜStsS 


20 

PRIN i :: cN ! HE 00M 05 

CODIGOS 

PR RR 

! FÜRMRR ÜDG iS ÍS 5? ( 5 /N) 

* * 

30 

IF INKEY $ = -■■' THEN GOTO 30 

3F 

LET H $ = INKEY $ 


40 

IF R$ = ”N” THEN RR ND 

USR 155 

14 

50 

IF fl$ = " S' : THEN GOTO 

100 


50 GOTO 30 
100 0L5 

110 PRINT :I NÜMERO DO CPRPCTERE? 
i 2 - 5 3) 

120 INPÜT NO 

130 IF NÜ < 2 OR NO 53 THEN GOTO 
120 

140 PRINT NO 

150 PRINT :: ENTRE COM OITO CODIG 

05. . . " 

150 LizT X = 15717+ (NO*3) 

170 FÜR P=X TÜ X + 7 
130 INPÜT C 
190 PRINT ü 
200 POKE P.C 
210. NEXT P 

220 PRINT !í MPIS ÜPRPCTERE5? (S/N 
) " 

238 IF INKEYê = :: i! THEN GOTO 230 
240 LET Pê = INKEYê 
250 IF Pê = :: 5 :: THEN GOTO 100 
250 IF Pií >“N” THEN GOTO 230 
255 IF INKEY* o"" THEN GOTO 255 
270 PRINT :! 5PLÜPP 05 CPRPCTERtS 
? C S/N) '* 

230 IF INKEY ê = ::;: THEN GOTO 230 
290 LET Pê = INKEYê 
300 IF Pê= ! N ;: THEN RR ND ÜSR 155 
14 

310 IF P$ < > !! 5 !! THEN GOTO 280 
320 CL5 

325 IF INKEY $ <>*'* “ THEN GOTO 325 
330 PRINT !! PRESSIONE ÜUPLOUEP T 
ECLP PPRP SPLUPR, . !i 
340 IF INKEY $ = !:;: THEN GOTO 340 
345 CL5 

350 SPUE :i PLTP -RE5ÜLÜÜP0 iS 
350 RUN 20 

Listagem 2 


Periscópio 

Victor Meyer 


Victor Meyer é usuário do TK 85, leitor da Revista e participa desta edição com um 
programa, desenvolvido por ele, compatível com este microcomputador. 


texto final: Mônica Rocha 


O jogo possui dois obstáculos, que deverão ser ultrapassados 
pelo usuário. O primeiro consiste de um mapa/radar, através do 
qual o submarino deverá alcançar uma esquadra de navios ini¬ 
migos, sem chocar-se com a moldura do radar e nem bater em 
qualquer barreira. Se acaso o jogador não conseguir efetuar es¬ 
ta prova, aparecerá uma mensagem na tela e automatica mente 
ocorrerá a sua desclassificação. No entanto, se ele obtiver su¬ 
cesso ao atingir a esquadra, mas chocar-se com a moldura do 
radar, o jogo retornará ao início, fornecendo ao jogador três chan¬ 
ces, ao fim das quais, ele perderá, se não aproveitá-las. 

O obstáculo número dois tem como objetivo a visualização dos 
navios da esquadra inimiga. Eles deverão ser abatidos, através 
da tecla 0, com um total de dez tiros, sendo indicado ao final. 


o número de disparos e de navios afundados. Porém, enquanto 
o submarino estiver a tona, é necessário cuidado, pois um tor¬ 
pedo é lançado pela esquadra, em sua direção. Isto é indicado, 
por intermédio de uma numeração decrescente, tal como um ra¬ 
dar de proteção que indica a aproximação de disparos. Desta for¬ 
ma, só é possível escapar submergindo o submarino, mas tendo 
um imenso cuidado para não ultrapassar a profundidade de dois 
asteriscos (indicados no vídeo), para não afundá-lo. Se isto acon¬ 
tecer, aparecerá uma mensagem no vídeo demonstrando a des¬ 
classificação do jogador. 

O "Lança torpedos" pode ser movimentado na horizontal, em 
perseguição ao navio inimigo, até um certo ponto. 
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ffi 

■■■ i 

EM 1943 TODOS OS COMPNDPN 

TE 5 DE SUBMPRINO RECEBEM 

UMP ORDEM 

EXPRESSP, CORTPR 

P ROTR DE 
PLIPDOS 

SUPRIMENTOS DOS 

1 

1 


. 4b». 


Figura 2: Tela secundária 




1 LET 0=4 
5 CLS 

7 LET U =U-1 

9 IF U=0 THEN GOTO 3095 
10 PRINT HT * 

; h f =:■.. 2"1 


17 


3*W‘, HT 2,6 ; ‘ == ; PT 2,9; 

RT 2,12; " ; PT 2,14; W ; fiT 

2,20;"="; PT 2.23; *W; 
fiT 2,25; " *" ; PT 2,27; ==" .; PT 2,29 

20 PRINT PT 3,1; "1"; PT 3,3; "fc" 

.; P ! 5 ., 4.; J_ ; P i 3 .6; "fc''; PT 3,7.; ‘ * 

" .; PT 3,9 ; "h“ ; PT 3,10 ; "4" ; PT 3,12 
; " r PT 3 ,14; ■ V; pt 3 ,15; ' w.; pt 
3,17; "| .; PT 3,20; i **; PT 3,21; " I" 

i H , w ., 4 : ^ , H ! 3 i 24; , H ; O ., 25 

; “ m ; PT 3,27; ' 1 *’ ; PT 3,23; “ 1" ; RT 
3,30; "1 

30 PRINT PT 4,1;"® :PT 4,2;'! ’ 

; PT 4,3; I '; pt 4,6; "|«= ; PT 4,9; " 
I " ; PT 4,10;"*"; PT 4,11: "s"; PT 4 
12;“!";PT 4,14;"sJ";PT 4,17;"fc" 
PT 4,18;;PT 4,20;"fe";PT 4,21; 
"4"; PT 4,23; "1 “ ; PT 4,25; "I"; PT 4 
, 27; “li" ; PT 4,28; "4 ; PT 4,29; "I'; 
PT 4.30;"®" 

40 PRINT PT 5,2;"fc ;PT 5.3 ;"mm 
m ;PT 5,2 

y; "4" 

90 PRINT PT 12,2;"0-DISPPRPDOR 
" .; RT 13,2 ; "5-SUB < =" ; PT 14,2; "6-5 
UBMERGIR";PT 15,2;"7-EMERGIR";PT 
16,2;"8-SUB=>";PT 17,2;"M-MPPP/ 
RPDPR";PT 13,2: "P-PER ÍSCOR10" 

100 FOR M=0 TO is 

110 PRINI PT 6.2;"************* 
120 PRINT PT 6,2; " 

130 NEXT M 


MICROHOBBY 11 

































































































































































-f- 


t 






mm* 



140 PRINT PT 21,5;“DIGITE M OU 


OR Y= £20 3 PND X= í 133 OR Y= (203 P 


P" 


ND X =(14) THEN GOTO 5 


150 INPÜT Pí 


663 PRINT PT 0,11;“MPPP/RPDPR" 


170 IF P$ = :! M !! THEN GOTO 175 


670 PRINT RT 7,20;"1";PT 3,20;" 


173 IF P4 ="P' : THEN GOTO 1500 


1" ; PT 9,20; " 1" ; PT 10, 20 ; " I ‘; PT 1 


175 0L5 


1, 20 ; PT 12 , 20 ;" i" ; PT 13, 20 ; " 1" ; P 


ISO PRINT PT 1,9; 1”;PT 1,21;“1 


T 14,20; "i" 


" PT 1,10; -r ; PT 1,22; r ' ; PT 1,1 


675 PRINT RT 1,13; " I";RT 2,13; " 


1; ,,s ; PT 1:23; 


1 ; PT 3,13 ; " I" ; PT 4,18; " 1" ; PT 5 , 


190 PRINT PT 2.9; i ; PT 2,10.;"® 


13 ; " 1" ; PT 20 ,18 ; “ i ; PT 19,13; " 1" 


“.; PT 2,11; ^ PT 2,14; a"; PT 2,1 


; PT 18,18; " i"; RT 17,18; " i" ; PT 16 


w ; m ; h \ ©: = i o ; n ; h í i=! » h i .= n§ .= h i 


, 18; " | 


2,22; S ;PT 2,23; "* 


680 PRINT PT 21,21; "0fa— ■J5" 


200 PRINT PT 3,9; " = " ;PT 3,21, « 


690 PRINT PT 0,B; S 


";PT 3,10; J PT 3,22; "J";PT 3,1 


700 PRINT PT 0,B; " 


l; " 1 PT 3,23; 1" 


710 IF X >20 OR X <1 OR Y <1 OR Y> 


210 PRINT 


30 THEN GOTO 810 


220 PRINT PT 5,4;"EM 1943 TODOS 


720 IF D=530 THEN GOTO 5 


OS COMPNDPN";PT 6,4;"TES DE SUS 


730 PRINT PT X,Y;"0" 


HPRINO RECEBEM ";PT 7,4;"UMP ORD 


740 PRINT PT X,Y;" " 


EM EXPRESSP, CORTPR";PT 3,4;"P R 


750 IF Y = £233 PND X=(10) THEN G 


OTP DE SUPRIMENTOS DOS" 


OTO 1500 


225 PRINT PT 9,4;"PLIPDOS" 


809 NEXT D 


230 PRINT PT 11,10; '* ;PT 11,22 


310 CLS 


; ,: n :: 


320 LET P =0 


240 PRINT PT 12,16; W;PT 13,15 


830 FOR P =0 TO 31 


;"»";PT 13,16;"*';PT 13,17;"*";P 


840 PRINT RT 9,P;"S 


T * - - " ; PT 14,20; 


350 NEXT P 


;PT 14,15;;PT 15,15;"1";PT 


360 PRINT 


14,16;"S ;PT 14,17;"1";PT 14,13; 


870 PRINT 


"1";PT 14,19; 


830 PRINT PT 12,2;"UOCE SPIU FO 


250 PRINT RT 15:6; :s ^ :: ; PT 15 ; 7; " 


RR DO RPDRR, BPTEU EM RECIFES E 


; PT 15,25; "■ 


FOI P PIQUE" 




335 FOR M =0 TO 30 




890 NEXT M 




900 CLS 


270 FOR L =0 TO 21 


910 GOTO 1 


230 NEXT L 


1500 CLS 


235 FOR ri =0 TO 30 


1510 SLOU 


300 NEXT m 


1515 PRINT ST í> . : " — ■ — 


490 CLS 


1530 PRINT PT 1,13; " I 1"_ 


500 RPND 


1540 PRINT PT 2,2; " BMÉ—M 


510 FPST 


■hhb 


520 FOR E =0 TO 31 


1550 FOR Z =£ TO 14 


530 PRINT PT 0,E;"®";PT 21,E;"* 


1560 PRINT PT Z,2;“S 


*• 


1570 PRINT PT Z,29;"■" 


540. NEXT E 


1530 NEXT Z 


550 FOR F = 1 TO 20 


1535 PRINT PT 15,3 ; "1" ; PT 15,2.3; 


553 PRINT PT F,0;"I";PT F,31;"i 


"!";PT 16,4; "1" ; PT 16,27; 1" ; PT 


.** 


17,4;"1";PT 17,27;"* ;PT 18,4;"1 


570 NEXT F 


".; PT 18,27;"®" 


530 SLOU 


1590 PRINT P^ -Z,5; 


590 LET B =23 




600 LET 0=10 


1500 PRINT PT 20,-9;"|";PT 20,22; 


610 LET X =20 


" i"; PT 20,11;"PERISCÓPIO" 


620 LET Y =2 


1610 PRINT PT 16,1;“*";RT 16,2 


630 FOR D =0 TO 500 


8; " * " .; PT 17,1; " i" ; PT 17,3; "i " ; 


540 LET X =X + í2 PND INKEYí="6"3 - 


PT 17,28;“*“; PT 17,30; "1"; PT 13, 


(2 PND INKEY$=“7") 


1.; " l" ; PT 18,3 ; "1 “ ; PT 13,23; " i" ; P 


545 LET Y=Ytí2 PND INKEY$=“3”3- 


T 18,30; “1 " ; PT 19', 1; " 1" ; PT 19,3; 


£2 PND INKEYi="5"3 


"1 " .; PT 19,28 ; " 1" ; PT 19,30; "i "; PT 


647 IF Y =(13 3 PND X= £20) OR Y=( 


20 ,1.; " 1" .; PT 20 ,3; "1 " ; PT 20 ,23.; " 


13) PND X= £ 19) OR Y=<133 PND X = £ 


I"; PT 20 , 30 ; "1"; PT 21 , 1 ; "i"; PT 2 


18) OR Y = £ 13) PND X=(17) OR Y=£l 


1,3; “1 " ; PT 21,23; " I" ; PT 21,30; *i 


3) PND X = £ 16) THEN GOTO 5 




650 IF Y = £ 133 PND X=íl) OR Y=£l 


1628 LET P =2100 


3 3 P N D X =£23 0 R Y =£18) PND X = £3 3 


1630 LET L =0 


OR Y = £ 133 PND X=£4) OR Y=£18) P 


1535 LET B =6 


ND X = £53 THEN GOTO 5 


1640 LET X =24 


655 IF Y= £203 PND X=£7) OR Y= (2 


1650 LET D=7 


0 3 P N D X = £ 33 0R Y =£203 P ND X =£93 


1660 LET 0=24 


0 R Y =£203 P N D X = ( 10 3 0R Y=£20) 


1670 LET E =0 


PND X =£113 OR Y= £203 PND X = £ 12 3 


1630 LET H =7 - ► 
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1695 LET F=0 


1955 PRINT PT 6 -F,X;"« ";PT S-F, 



1700 LET G =0 


X + F; " | " ; PT 6 -F,X-F; " "1 “; PT 6 - 



1705 LET 1=10 


F , .x + h ; ' 5 '', 



1710 LET Y = 14- 


1960 PRINT PT 6 -F,X;" ";PT 6 -F, 



1715 LET J =0 


X + F; " " ; PT 6 -F..X-F.;" " ; PT 6 - 



1720 LET K =0 


F ., x+4.; 



1725 PRINT PT 6 .X;“ 


1965 NEXT F 



1730 LET 0=11 


1970 LET E=E+1 



1735 LET X =24 


1975 LET G =G +1 



1745 LET 9=9-100 


1980 LET X =24 



1750 PRINT PT 3:15;"**" 


1985 LET 0=11 



1755 PRINT PT 1,14;P 


1990 IF E = 10 THEN GOTO 2005 



1757 FOR R =0 TO 3 


1995 LET P =9 —100 



1755 NEXT R 


2000 GOTO 1745 



1760 PRINT PT 1,14;" 


2005 CLS 



1765 IF P <=0 THEH GOTO 3000 


2010 PRINT PT 6,0;“TOTPL DE TIRO 



1775 PRINT PT 6 . X : ",_S_ " 


S = ";h! 6,16;4 



•1775 LET X =X -1 


2015 PRINT PT 10,0;"TOTPL DE 6 PR 



1750 LET 0=0-1 


COS DEST RU IDOS = ";PT 10,28;G 



1755 IF 0=0 THEN GOTO 1725 


2020 PPUSE 300 



1757 IF INKEY4="0” THEN GOTO 157 


2025 GOTO 3095 



6 


2030 PRINT PT 8 ,X;"/// 



1790 LET D =D- £ 1 PND INKEY4="7") 


2035 LET 9=2100' 



1795 P RINT PT D , 3; * * ///////////// 


2050 IF D=2 THEN GOTO 3080 





2051 IF INKEY4 ="7" THEN GOTO 179 



1797 P RINT PT 8 ,3; 1 * ///////////// 


0 



/ / / / / / / / / / ,/ / / : 1 


20.53 LET D =D + C1 PND INKEY4 = " 6 ") 



1800 PRINT PT P , 3; ‘' ///////////// 


2055 PRINT PT D, 3.;" 



1805'PRINT’PT 30,3;“//////////// 


2057 IF D < =(65 THEN GOTO 2053 



/ / / / / / / / / / / / / / 1: 


2050 G OT 0 179 0 



1810 P RINT PT 11 ,3; '' //////////// 


206b CLS 



/ / / / / / / / / / / / / / :! 


2070 FOR K=0 TO 31 



1815 P RINT’ PT' 1P,3; ‘ ’ //////////// 


2075 PRINT PT 9,K;"1 



/ / / / / / / / / / / / / / ! S 


2080 NEXT K 



1520 PRINT’PT 1 3,3;"//////////// 


2085 PRINT PT 12,1;"9 RESERUP DE 





PR EGOTOU-SE" 



1523 FR INT PT 14,3;"//////////// 


2090 PPUSE 300 



/ / / / / / / / / / / / / " 


2095 GOTO 3100 



1830 PRINT PT'15,4;"//////////// 


3000 CLS 



T» s t» .—. —r- .— — . 


3005 FOR M =0 TO 10 _ 



± O W« b H H _L N i ri : : = / / / / / / / / / / / / 


b010 fRINs Hl r ,1+; ,HI 10,1 



/ / / / / / / / !! 


4; “MÊÊ’ ; PT li .14; 



1540 PRINT PT 17,5;"//////////// 


3015 PRINT PT'9,14; " ";PT 10,1 





4;" " .; PT 11,14;" 



1840 HHiNT Pi ls.5;"//////////// 


3020 NEXT H 



/ / / / / / / / / / 1 *' 


3025 FOR L =8 TO 8 



1848'PRINT PT 18,H;"F";PT 15,0;" 


3030 PRINT PT 9-L.14;" P ";PT 10 



* 


-L,14-L;"1";PT 9,14-L;"S ;PT 10+ 



1850 IF D < =B THEN GOTO 2030 


L,14;"PT 10,14+L; "fc" 



1853 PRINT PT 6,X: " 


3035 PRINT PT 9-L,14;" ";PT 10 



1555 LET Y =Y + C3 PND INKEY$="8"3 - 


-L , 14-L.; " " ; PT 9,14-L;" " ; PT 



(3 PND INKEYi=“5"i 


10+L,14, ";PT 10,14+L;" 



1856 IF Y <=H OR.Y>=0 THEN GOTO 1 


3040 NEXT L 



745 


304b CLS 



1860 PRINT PT 18,Y;"/*/" 


3050 FOR N =0 TO 31 



1865 Lfc i X=X-1 


3055 PRINT PT 9,N;"1 



1875 GOTO 1745 


3060 NEXT N 



1876 FOR P =17 TO 6 STEP -1 


3065 PRINT PT 12,1;"SU8HPRIN0 RL 



1890 PRINT PT P =Y + i; “." 


UEUPDO ,FOI P PIQUE" 



1895 PRINT PT p',Y + l;" " 


3067 FOR M =0 TO 30 



1900 NEXT P 


3070 NEXT H 



1905 IF Y+l=X+3 THEN GOTO 1930 


3075 GOTO 3095 



1910 LET E =E*1 


3080 CLS 



1915 IF E =10 THEN GOTO 2005 


3082 FOR K =0 TO 31 



1920 LET P =P —100 


3083 PRINT PT 9,K;“S 



1925 GOTO 1745 


3084 NEXT K 



1930 FOR 0=0 TO 5 


3085 PRINT PT 8,4;“0 SUBM9RINÜ S 



1935 PRINT PT 6 . X ; 


UBMERGIU DEM9IS" 



1940 PRINT PT 6 , X: " 


3087 FOR M =8 TO 30 



1945 NEXT 0 


3090 NEXT M 



1950 FOR F =0 TO 3 


3095 CLS 





3100 PRINT PT 10,14;"FIM" ■ 
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Conexão 


Desafie seu TK 85 para uma partida, e mostre ao seu equipa¬ 
mento que você pode superá-lo facilmente. 

Características Gerais do Programa. 

Após ter sido carregado o programa, perguntado o número de 
jogadores (1-2). Se a opção for "1", então você deve escolher 
se deseja iniciar o jogo ou não. Em seguida selecione qual o ní¬ 
vel de dificuldade que deseja jogar. 

O tabuleiro do jogo que será exibido em sua tela possui 6 li¬ 
nhas por 7 colunas, que estão representadas pelas letras de A 
até F. 

Seu objetivo é completar uma sequência, não importando o 
tipo e sua direção, de no mínimo quatro pontos antes que seu 
competidor. 

Se seu adversário optou pela coluna A por exemplo, quando 
for sua vez de jogar poderá optar pela mesma jogada de seu ad¬ 
versário com o objetivo de prejudicá-lo. 

Cada jogador possui um placar, onde será registrado o núme¬ 
ro de vitórias que cada um conseguiu. 

Se você estiver jogando contra o seu equipamento; e se for 
sua vez de jogar pressione a tecla ''O"; o computador tomará a 
sua vez e jogará contra ele mesmo. 

Notas sobre Programa 


N$ 

Variável que acumula qualquer combinação da 
linha ganha. 

Y$ 

Variável que determina as ordens de jogada 

S1,S2 

Placar de cada jogador 

A-F 

Representa os números 1 a 6, e auxilia o 
programa a rodar com mais rapidez. 

P$ 

Variável que representa o número de jogadores. 

S$ 

Determina quem irá iniciar a partida. 

H$ 

Variável que determina o nível de dificuldade. 

A$ até G$ 

Acumula as posições da área de jogo nas 
colunas de A até G. 

1$ 

Seleciona as colunas de A até G ou 0. 

1$ 

Os espaços da área de jogo. 

J$ 

0 string da coluna selecionada é copiada em 

J$, e o espaço acumulado em L$ é somado em 
J$ retornando astring da coluna selecionada. 

Z 

0 primeiro número de J$ que não é um código 
de espacejamento. 

R 

Altera o valor para indicar uma linha ganha 

Q $ 

Retém as linhas para comparação, para o 
computador realizar sua jogada. 

Q 

Realiza um loop, e o limite máximo de Q é 
determinado por H$. 


As sete colunas que correpondem as letras de A até G, são 
acumuladas em A$ até G$, que consistem em seis espaços. O 
valor de Y$ e P$ é verificado para determinar quem será o próxi¬ 
mo a jogar. 

Depois que o jogador selecionar a coluna, uma verificação é 
feita para se saber se a tecla "0" foi selecionada. Em qualquer 
caso o programa salta para rotina de jogo. 

Quando uma coluna é escolhida, o computador a verifica pa¬ 
ra certificar se esta ainda não foi preenchida antes de dar conti¬ 
nuidade a jogada. Passada a informação para a coluna esta é co¬ 
piada em J$, em seguida ajusta-se a mesma para que esta con¬ 
tenha o espaço adicional, e recopiada no string original. 

Com este pedaço adicional, todas as 69 possibilidades de vi¬ 
tórias são reintegradas em N$. Durante a verificação se for en¬ 
contrada uma linha que contenha uma seqüência de quatro, en¬ 
tão R assume o valor de 1. Se não for encontrada nenhuma se¬ 
quência de quatro, então Y$ assume um novo valor, e o loop FOR 
NEXT de Q irá decidir qual o melhor movimento para o compu¬ 
tador realizar sua próxima jogada. No caso, do seu adversário 
não ser o computador então este loop não será utilizado. 

Listagem do programa Conexão 


IQ 

DIM 

K!± [RQ 4'i 

2Q 

LET 


30 

LET 

51=0 

35 

LET 

I$ = : "‘ 

40 

LET 

52=51 

50 

LET 

H = 1 

60 

LET 

B=fl+A 

70 

LET 

C=B+fi 

80 

LET 

D =0 +fi 

90 

LET 

E =D +fi 

100 

LET 

F =E + fi 

110 

PRIMT “NUMERO DE JOGRDuRfcS 

.« .< 

1 OU 

i=i '' 

120 

LET 

P S =INKEY í 

130 

IF 

P S = “ 2 : ' THEN GOTO 230 

140 

IF 

PS O”1“ THEN GOTO 120 

150 

PRIMT ,,“UOCE DESEJA CQMEUH 

R? (5 

/N) M 


160 

LET 

S4=INKEY$ 

170 

IF 

S$=”S" THEN GOTO 200 

130 

IF 

SS <>"N" THEN GOTO 160 

190 

LET 

Y$=“2" 

200 

PRIMT ,:"SELECIONE 0 MIUEL 

DE D 

IFICULDPDE !S : , ” 1, 2 OU 3“ 

205 

5L0U 

210 

LET 

H$ =INKEY$ 

220 

IF 

HSíCHRS 29 OR H$>CHR$ 31 

THEN GOTO 210 

230 

LET 

P.$ = " 1 

235 

LET 

R =0 

240 

LET 

BS=hS 

250 

LET 

C$=fi$ 

260 

LET 

D$=H$ 

270 

LET 

E S =Pí $ 

230 

LET 

F $ =fí$ 

290 

LET 

G$=fí$ 

300 

CLS 
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310 FOR J=C TO 16 

320 FOR K =8 TO 22 STEP B 

330 PRINT RT U,KI"H" 

34-0 NEXT K 
350 NEXT ü 

360 FOR Ü=D TO 16 STEP B 

370 FOR K=9 TO 21 STEP B 

380 PRINT RT J.K;"Ü" 

390 NEXT K 


400 NEXT J 

410 PRINT TRB 9;"R B C D E F 6" 
TRB 23;" OR 0" AND P$="l" 

420 PRINT RT 8.0;"JOGADOR1";TRB 
23; "MROUINfi" AND P$ = "1"; "JOGADO 
R2 " AND P $ = " 2 " ; TRB 4; S1TRB 26; S 


430 IF Y$=“I“ THEN GOTO 450 
440 IF p è = !S 2 :: THEN GOTO 430 
450 IF Y$ = “2“ THEN GOTO 1560 
450 PRINT PT 20,0;"JOGADOR 1 Sü 
P UEZ “ 


470 GOTO 490 

450 PRINT PT 20,0;“JOGPDOR 2 SU 
P UEZ" 


455 SLül-j 


490 IF P$(P3o“ “ PND B $ (P 3 < > “ 

" PND C $ (P 3 < > '’ “ PND D $ (P 3 <> “ " 
PND EJ(fl) O" " PND F $ (P 3 < > '' " PN 
D G$(P3 O" “ THEN GOTO 4700 
495 IF R$ = “I ,! PND (K = I OR Y* = "2 
") THEN GOTO 550 


500 PRINT RT 19,A: 
LUNfiS" 

510 LET I$=INKEY$ 
515 SLOU 

“SELECIONE 

CO 

520 IF I$=”0” 

Li UT U 1860 

PND 

P$ < >“2" THEN 

530 IF 14 •; CHR 4 
THEN GOTO 510' 
540 GOSUB 560 
550 GOTO 510 

35 

OR I$ > CHR $ 

44 

bõ0 IF I4="fi" 
EN RETURN 

PND 

P$ (13 <>" “ 

TH 

570 IF 14 = "fi" 
EN RETURN 

PND 

P $ (13 < > “ “ 

TH 

588 IF 14 = "B" 
EN RETURN 

PND 

B $(13 <> ‘ ‘ " 

TH 

590 IF 14 = " 0 ” 
EN RETURN 

PND 

C$(I3 0 M “ 

TH 

600 IF I4="D" 
EN RETURN 

PND 

D$(13<>“ “ 

TH 

610 IF 14 = "E" 
EN RETURN 

PND 

E$ (13 < >“ “ 

TH 

620 IF I$="F“ 
EN RETURN 

PND 

F$ (13 <>“ “ 

TH 

630 IF I4="G" 
EN RETURN 

640 LET L$="0‘ 

PND 

G $ (13 < > " “ 

TH 

650 IF Y4="l" 
660 IF I4="R" 
670 IF 14 ="B" 
680 IF I$="C" 
690 IF 14 = " D " 

THEN LET L4="*' 
THEN LET ü4 =R$ 
THEN LET J4=B4 
THEN LET U4=C4 
THEN LET J4=D4 




O Jornal do VIDEOTEXTO é dirigido a profissionais 
liberais, engenheiros, empresários e estudantes. Fique 
sabendo das novidades, tendências e experiências do vi¬ 
deotexto, recebendo em casa 12 edições do único veí¬ 
culo com informações atualizadas, isentas e analíticas 
sobre o setor. 


Envie seu pedido à 

Dialógica Comunicação e Sistemas Ltda. 

Rua Fradique Coutinho, 50 
CEP 05416 - São Paulo - SP. 

Fones: 644)331 e 64-7131 

Nome: .. 

Profissão:. . 

Endereço: .CEP 

Cidade:. Estado:. Fone: 

Desejo receber 12 edições do Jornal do 
VIDEOTEXTO. Estou anexando cheque nominal à 

Dialógica Comunicação e Sistemas Ltda. no valor 
de Cr$ 85.000. 


Quem assina tem prioridade da informação. 
Seja assinante do JV. 



cada vez melhor! 


A revista MICROHOBBY é dedicada aos 
leitores que desejam tirar o máximo proveito 
de seu micro. 

Muitas dicas, programas e cursos numa lin¬ 
guagem altamente didática. 

Todo mês um mundo de informações valiosas 
tanto para os principiantes, quanto para os "ex- 
perts". 
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700 IF I4="E" THEN LET J$=E$ 

705 IF 1$ = ‘‘F" THEN LET J$=F$ 

710. IF I4="G” THEN LET J$=G$ 

720 FOR Z=1 TO 7 

730 IF J$CZ3 <>" " THEN GOTO 750 

740 NEXT Z 

750 LET J$ ÍZ-13 =L$ 

760 LET R=0 


770 
= " 2 “ ) 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 


IF Y$ = ”l" OR ('/$ = ■'2" AND P$ 
THEN GOTO 1590 


FR ST 

IF I i = “ fl " THEN 
IF 14 = " 8 " THEN 
IF I4="C" THEN 
IF I$=”D" THEN 
IF 14 = “ E : ‘ THEN 
IF li="F" THEN 
IF I$ = "G" THEN 
LET Ni(1)=fli(fi 
LET Ni C2) =B{(fi 
LET Ni (3) =>_:$ (fi 
LET Ni(4)=04(fi 
LET Ni (55 =Ei(fi 
LET Ni£6)=F$(fl 
LET NÍ(7)=G$ffi 
LET Ni(83=fi$£8 
LET Ni(9)=BÍ(B 


LET fii=üi 
LET 8i=ü$ 
LET Ci=üi 
LET Di=Ji 
LET Ei=Ji 
LET Fi=Ji 
LET Gi=Ji 
TO D) 

TO D 3 
TO D 3 
TO D 3 
TO D 3 
TO D 3 
TO D 3 
TO E 3 
TO E 3 


950 LET 
960 LET 
970 LET 
930 LET 
990 LET 
1000 LET 
1010 LET 
1020 LET 
1030 LET 
1040 LET 
1050 LET 
1060 LET 
1070 LET 
3 +Di£fl 3 
1080 LET 
3 +D i (B 3 
1090 LET 
3 +DÍ (03 
1100 LET 
3 +D{ (D3 
1110 LET 
3 +Di£E 3 
1120 LET 
3 +D$£F 3 
1130 LET 
3 +Ei£ R 3 
1140 LET 
3 +Ei£ B 3 
1150 LET 
3 +Ei£03 
1160 LET 
3 +Ei(D 3 
1170 LET 
3 +Ei£E3 
1180 LET 
3 +Ei£ F 3 
1190 LET 
3 +FÍ £ fl 3 
1200 LET 
3 +Fi(B 3 
1210 LET 
3 + F4 £03 
1220 LET 
3 +Fi£D3 
1230 LET 
3 +FiCE3 


Ni£103=04(6 TO E3 
N$í 11)=D4£B TO E3 
N$ £ 12) =EÍ £B TO E3 
Ni £ 133 =Fi(B TO E3 
Ni £ 143 =G4£B TO E3 
N$ £ 153 =fl$ £0 TO F 3 
Ni £ 163 =Bi £0 TO F3 
Ni£173=0$£0 TO F3 
Ni £ 18 3 =04 £0 TO F3 
Nií193 =Ei£0 TO F3 
Ni (203 =Fi£0 TO F) 

Ni (213 =Gé £0 TO F) 

Ni(223=H$(fl)+B{(fl)+Ci(fl 

Ni(233 =fli£63 +6$(63 + 04 (6 

Ni£24) =fii£0 3 +6i(03 +Ci£0 

Ni (253 =fii£ D 3 +84 (D) +CÍ (D 

Ni£263 =fli£ E 3 +6{£E) + 04(E 

Ni (273 =fli £F3 +8i £F) + 04 £F 

N{ (28 3 =6i(fi) +Ci(fi) +D$(fi 

Ni (293 =61£63 +Ci(63 +D{£6 

N i £ 3 8 3 =B i £ 0 3 + 0 { £ 0 3 + D i (0 

N i £ 313 =81 £ D 3 + 0 i £ D 3 + D { £ D 

Ni (32 3 =8i(£)+04 CE) +04(E 

N4£333 =84£F) +04 (F) +D$(F 

Ni£343=04(fi)+D4(fi)+E4(fi 

Ni£353 =04 (8 3 +D$(6 3 +Ei£8 

Ni£36 3 =04£0)+D4(0) +E4 £0 

Ni£37) =0 4 £0 3 +04 (03 +E4(0 

Ni(383 =0 4(E3 +0 4 £E3 +EiÍE 


1240 LET 
3 +F 4(F3 
1250 LET 
3 +G4(fi) 
1260 LET 
3 +G4(8) 
1270 LET 
3 +G 4£0 3 
1280 LET 
3 +G4(03 
1290 LET 
3 +G4 £E3 
1300 LET 
3 +G4(F 3 
1310 LET 
3 +G4£0 3 
1320 LET 
3 +G4 £E3 
1330 LET 
3 +Gí £ F 3 
1340 LET 
3 +F4 £03 
1350 LET 
3 +F 4CE3 
1360 LET 
3 +FiCF3 
1370 LET 
3 +E 4£03 


Ni(393 =04 £F3 +04 £F3 +EÍ ÍF 
Ni(403 =04(fi)+F4(fi) +F4 (fl 
Ni(41) =04(83 +E4 (83 +Fi(8 
Ni(423 =04 £0) +E{£03 +Fi£0 
N4 (433 =04 £03 +E4 £03 +F{£0 
Ni£443 =0i£ E 3 +Ei(E 3 +Fi(E 
Ni (453 =04 £F3 +EÍ (F3 +F4(F 
Ni(46 3 =0 4(fl 3 +E4(8 3 +Fií 0 
Ni£473 =04 (83 +E4 £0) +Fi£0 
Ni(483 =04(03 +E4 £0 3 +F4 £E 
N4 £49 3 =04(fi) +0 4 £8 3 +E4 £0 
Ni(50 3 =04(83 +04(0) +E4(0 
Ni (513 =04 (03 +0 4 (03 +Ei (E 
Ni£52 3 =84(fi) +0 4 £8) +04 £0 


i88 8 L ET N4 £533 =84 £8 3 + 0 4 (0 3 +04 £0 

3 +E4 £E3 

1390 LeT Ni£54) =B4 £0) +0 4 (0 3 +0 4 ÍE 
3 +E 4(F 3 

1400 LET Ni(553=fi$(fi)+B4(83+04(0 
) +0 4 £ 0 3_ 

1410 LET Ni (563 =fii£83 +84 (03 +04(D 
3 +04 £E3 

1420 LET Nt(573 =fii£03 +84 £03 +04 (E 
3 +04 £ F 3 

1430 LeT N4 £583 =fii£03 +84£03 +04(B 
3 +04 £ fl 3 

1440 LET Ni£593 =fiiCE) +84(03 +04 £0 
3 +04 £8 3 

1450 LET Ni£603 =fii£F3 +8 4 (E) +04 CO 
3 +0 4 £03 

1460 LET Ni£613 =84(0 3 +0 4(03 +04 (6 
3 +E4 £ fi 3 

1470 LET N4(623 =84(Ei +04£03 +04(0 
)+E4(83 

1480 LET N4(63) =84 £F) +04 £E3 +04(0 
) +E 4 £ 0 3 

1490 LET Ni(643 =04(0 3 +04£03 +E4 £8 
3 +F4(fi) 

Ib00 LET N4 (653 =04 £E3 +0 4 (0 3 +E$£0 
3 +F4 £8 3 

1510 LET Ni£66 3 =04 CF)+04ÍE3 +E4 £0 
3 +F4 (03 

+520 LET N4 £673 =04 £0 3 +Ei(03 +F4(8 
3 +G 4(fi) 

1530 LeT N4£683 =04 £E3 +E4 (03 +F$£0 
3 +G 4(8 3 

1540 LET Ni£693 =04 CF) +E4 CE) +F4 £0 
3 +G 4£03 

1550 FOR J=i TO 69 

Ni(J)=L4+L4+L4+Li THEN L 

1570 NEXT J 

1580 IF Y4="1" OR P4="2" THEN GO 
Tu 1800 
1590 SLOU 

1595 FOR J=1 TO 5 

1596 NEXT J 

1600 FOR 1=1 TO Z-l 

Í®^.f >RINT fíT I * 2 +3^+(C00E 14-3 
'' ' 


16 MICROHOBBY 














































































































■ cí ;i> itcnci t: pitu t: i£« 


& 


:I- 


(4 


H- 


íl 


780 

730 


JOG 


dQG 


1620 NEXT I 
1622 LET K=0 

1624 FOR d=i TO 5 

1625 NEXT d 

1630 Ir Y$ = “1” THEN GOTO 
1635 Ir P4="2" THEN GOTO 
1640 GOTO ISO© 

1650 SLOU 

1655 IF Y4 = "1“ THEN GOTO 1730 

1650 PkINT PT 20 .. 0 ; " UENCEU O COM 
PUTPDQR 

1670 Ir- P4 = "2" THEN GOTO 1690 
1630 GOTO 1700 

1690 PRINT PT 20,0;‘‘UENCEH n 
PDOR 2 

1700 LET 32=32+1 
1710 LET Yf = "1" 

1720 GOTO 1763 

1730 PRINT PT 20,0;"UENCEM n 
PDOR 1 

1740 LET 31=31+1 
1750 LET Y$="2" 

1750 FOR d=l TO 100 
1770 NEXT d 
1775 CL3 

1730 IF P$ = “2 ‘' THEN GOTO 230 
1790 GOTO 203 

1300 IF K = 1 THEN GOTO 1650 
1310 IF Y4="1“ THEN GOTO 1840 
1820 LET Y 4 = “ 1 “ 

1830 GOTO 430 
1840 LET Y4 = ‘ ‘ 2' ‘ 

1350 GOTO 430 
1860 DIM 04f4.4í 
1865 IF 14 = ! ’ £ 

1870 FR ST 
1880 FOR 0=1 
1890 IF 14 = “ £. 

1900 IF 0=1 OP O: 

ET L4="Q" 

1910 IF 0=2 OR 
tT L4="+" 

1920 GOTO 1950 

1930 li- 0 = 1 OR 0=4 OR 0=6 THEN L 
ET L$="*" 

1940 IF 0=2 OR 0=3 OR 0=5 THEN L 
ET_L 4 = "0" 

1950 IF 0>2 THEN GOTO 2050 
2010 LET 04(93 =“ ”+L4+L4+L4 
2020 LET 04£B3=L4+" "+L4+L4 
2030 LeT 04(C)=L4+L4+" "+L4 
204-0 LeT 04£D3=L4+L4+L4+" " 

20E0 ir 0 <3 THEN GOTO 2140 
20&0 LeT 04(9 3=“ “+L4+" "+L4 
2070 LET 04 (33 =L4 + " "+L4 + " " 

20E0 LET 04 CO =L4+L$ + " "+" " 

2035 LeT 0$(D)= “ "+L4+L4+" " 

2090 ir O i 5 THEN GOTO 2140 
2100 LeT 04 £P) =‘ ! “+L4+" " + “ " 

2110 LET 0$ÍB3=” •• + •• ' " +L$ + “ " 
2120 LeT y$ (C3 =" •’+" •■+" ,: +L4 
2130 LET 04(D3 = “ " + " "+L4 + ” " 
2140 IF N4 (P3 =04(93 OR N4 (33 =04 ( 
Pi OR N4í153 =04 £93 THEN GOTO 400 
0 

2150 IF P41B3<>" " PND £N4(223=0 
4 i.P3 • OR N4 (55) =04 £ P 3 3 THEN GOTO 
4000 

2160 IF P4CC3 0” " PND (N4 (233 =0 
4(93 OR N4 (56 3 =04 (9 3 3 THEN GOTO 
4000 

2170 IF P 4 £ D 3 i > *•* " PND £N4 (243=0 
4(9) OR N4(573=04(933 THEN GOTO 
4000 


THEN 

LET K 

= 1 

i UhL 
THEN 
s%i — 4- 

H$± 2 
GOTO 
OR 0=6 

1930 

THEN 

0=3 

OR 

0=5 

THEN 

0=4. 

OR 

0 = 6 

THEN 

0=3 

OR 

0=5 

THEN 


2130 IF P4(E3 o “ " PND £N4(25)=0 
$ f P3 OR N4(533=04(P33 THEN GOTO 
4300 

2190 IF P4(F3 <>" " PND (N4(263=0 
4 (P3 OR N4(593 =04(P3 3 THEN GOTO 
4000 

2200 IF N4 £273 =04(P3 OR N4(60) =0 
4 (P3 THEN GOTO 4000 
2210 IF N4(B3=04£P3 OR N4(93=04( 
P3 OR N4 £ 163 =04 £P3 THEN GOTO 410 
0 _ 

2220 IF B4 (B3 < >" “ PND (N$(23) =0 
$(P3 OR N4(523=04(P33 THEN GOTO 
4100 

2230 IF 34(03 O“ " PND (N4(293=0 
4 (P) OR: N4 (533 =04 ÍP3 3 THEN GOTO 
4100 

2240 IF 3-4 (D3 •£ > “ " PND (N4 (303=0 
4(P3 OR N4(543 =04 CP3 3 THEN GOTO 
4100 

2250 IF B4(E3<>“ " PND (N4 (313=0 
4(P) OR N4 (613 =04(P3 3 THEN GOTO 
4100 

2260 IF B4£F3o" " PND (N4 (32 3=0 
4(H3 OR N4(623 =04£P3 3 THEN GOTO 
4100 

2270 IF N4 £333 =04(P) OR N4(633=0 
4 í P 3 THEN GOTO 4100 
2280 IF N4 £03 =04 £P3 OR N4(103 =0$ 
(P3 OR N4(175 =04 £P3 THEN GOTO 42 
00 

2290 IF 04 £B3 < >” " PND (N4 (343=0 
4 £P) OR N4(493 =04(P3 3 THEN GOTO 
4200 

2300 IF 04(03 O“ " PND (N4£353=0 
4 (P3 OR N4(503 =04(P3 3 THEN GOTO 
4200 

2310 IF 0-4 (D3 <>” “ PND (N4 (363 =0 
4 (P3 OR N4(513 =04(P3 3 THEN GOTO 
4200 

2320 IF 04 £E3 < >“ " PND (N4 (373=0 
4 (P3 OR N4£643 =04(P3 3 THEN GOTO 
4200 

2330 IF 04 £F3 O” " PND (N4 (383=0 
4 (P3 OR N4(653 =04£P3 3 THEN GOTO 
4203 

2340 IF N4 £393 =04 £P3 OR N4(663=0 
4 (P3 THEN GOTO 4200 
2350 IF N4(D)=04(93 OR N4(113=04 
(P 3 0R N 4(13 3=04(93 THEN G OT 0 43 

00 

2360 IF D4 £B3 O“ “ PND (N4(403=0 
4(P3 OR N4(463 =04(P3 3 THEN GOTO 
4300 

2370 Ir D4(0 3 <>" " PND (N4(413 =0 
4(P3 OR N4 (473 =04 (93 3 THEN GOTO 
4300 

2380 IF D4(D3 < > ** “ PND (N4 (42 3=0 
4 (9 3 OR N4 (433 =04 (93 3 THEN GOTO 
4300 

2390 IF D4£E3<>“ " PND ÍN4(433=0 
4 (93 OR N4£673 =04 £93 3 THEN GOTO 
4300 

2400 IF D4 (F3 o ** " PND (N4 (443 =0 
4(93 OR N4(633=04£P33 THEN GOTO 
430-0 

2410 IF N4(453=04(93 OR N4(693=0 
4(9) THEN GOTO 4300 
2420 IF N4 £E3 =04 (93 OR N4(123=04 
(93 OR N4(193=04(93 THEN GOTO 44 
00 

2430 IF N4ÍF3=04(93 GR N4£133=Q4 
(93 OR N4(20)=04(P) THEN GOTO 45 
00 -► 


MICROHOBBY 17 
















































































































r. 

>|3 ( 



¥ 

'■ÍAi 






























"11" 

á' - 




1 

Fr 



ir 

11 Vil 

1 J 





























U L 


H©>- 

--- 



00 


2440 Ir N$Í7)=Õ4ÍA) GR N$(14)=G$ 
ÍH) OR Nê (213 =Qí(A) THEN GOTO 46 

i (5) < > !! " RND (N$ (22) =0 
i (55) =y$(S) } THEN GOTO 

MC) O 44 44 AND (N*(23)=G 


AND (N$(24)=0 


AND í N $(25) =0 


2458 

IF 

ê (B) 
4100 

OR 

2460 

IF 

ê (B) 
4100 

OR 

2470 

IF 

ê (B) 
4100 

OR 

2480 

IF 

ê ( b ) 

4100 

OR 

2490 

IF 

ê (B) 
4100 

OR 

2500 

100 

IF 

2510 

IF 

£5) THEÍ 

2520 

IF 

ê (B) 
4200 

OR 

2530 

IF 

ê ( b ) 

4200 

OR 

2540 

IF 

ê £ B) 
4200 

OR 

2550 

IF 

ê ( b ) 

4200 

OR 

2550 

200 

IF 

2570 

IF 


AND (N$ (26) =Q 


5 (5) < > 4S 44 RND N$ (26) =0$ 
5GT0 4200 

MC) o ,s 44 AND (Nê (29) =0 

5 (52) =0$(5) ) THEN GOTO 

MD) <>" í! AND (N$ (30) =0 

6 (61) =0$(B) ) THEN GOTO 

ME) < > 44 í! AND (N$ (31) =0 
S (62) =0$(B) ) THEN GOTO 

-WWW w=ÉCF)o !! 44 AND (N$ (32) =0 
$ (B) OR Nê (63) =95 CB) ) THEN GOTO 

A 


(6) THEN"GOTO 4300 
2560 IF D $ (C) < > 


AND Nê (34) =0$ 


-WWW w=,w,-, ,• AND (W*(35)=G 

$ ÍB) OR Nê(49) =0$(B) ) THEN GOTO 
4300 

AND (N ê(36) =G 
OR N$ (64) =0 


2590 IF D $ (D) < > 4S 
$(B) OR N$(50)=0$(B) 

$(B)) THEN GOTO 4300 
2600 IF D$(E) o" 44 AND (N* (37) =Q 
*(B) OR N$(51)=G*(B) OR Nê(65)=0 
$ (B) ) THEN GOTO 4300 
2610 IF D$(F)o t! “ AND (N$(36)=0 
$(B) OR N$(66)=0$(B)) THEN GOTO 
4300 

2620 IF Nê(39)=0$(B) THEN GOTO 4 
300 

2630 IF E$ (B) O 44 44 AND N$ (40) =0$ 

(B) THEN GOTO 4400 

2640 IF E*(ü)0 :: 44 AND (Nê (41) =0 
$(B) OR Nê (46) =©$(B) ) THEN GOTO 
4400 

2650 IF E$(D)0 :í 44 AND (N* (42)=* 

$(B) OR Ni (47) =0$(B) OR N$(67) =0 

$ (B) ) THEN GOSUB 4400 

2660 IF E$(E)0 !; 44 AND (Nê (43) =0 

$ £B) OR Ni (46) =0$ (B) OR Nê (66) =0 

$ (B) ) THEN GOTO 4400 

2670 IF E$ (F) < > 44 44 AND (Nê (44) =0 

$(B) OR Nê (59) =Q$(B) ) THEN GOTO 

4400 

2650 IF Nê(45)=0$(B) THEN GOTO 4 
40.0 

2690 IF CÍ(B)<> 44 44 AND N$ (22) =0$ 

(C) THEN GOTO 4200 

2700 IF (C) < > 44 44 AND (Nê (23) =0 
$ (C) OR Nê (56) =0$(C) ) THEN GOTO 
4200 

2710 IF Cê (D) <>" 44 AND (Nê (24) =0 
$(C) OR Nê(59)=Qê(C)) THEN GOTO 


4200 
2720 
$ (C) 

$ (C) ) 

2730 

$ (C) 

4200 

2740 

200 

2750 


IF Cê (E) o :: 44 AND (Nê (25) =Õ 
OR Nê(56) =y$ (C) OR Nê (60) =0 
THEN GOTO 4200 


IF 

OR 

IF 


C ê (F) 
N$ (57 

N$ ( 

D ê (B) 


AND (N$ (26) =0 
=Sê(C)) THEN GOTO 

) =Qê (C) THEN GOTO 4 


IF 

(C) THEN GOTO 
50 IF Dê(C) 
C) OR 


> í: 44 AND Nê (28) =0$ 
4300 

. > í: 44 AND (N$ (29) =0 
Nê(51)=S$(C)) THEN GOTO 


IF D$ (D) < > !! 44 AND 
OR Nê (52) =0$(C) OR 
THEN GOTO 4300 
IF Dê (E) < > :: 44 AND 
OR Nê(53)=Q$(C) OR 
THEN GOTO 4300 
IF D $ (F) < > !S :! AND 


(N$ (30) =0 
N$ (62) =0 


(N$ (31) 
Nê (63) 


=0 

=0 


(N $ (32) =0 


IF 

IF 


Nê(54)=9$(C)) THEN GOTO 
Nê (33) =0$(C) THEN GOTO 4 


Eê (B) 
(C) THEN GOTO 


2820 
$ (O 
4400 
>630 
(C) 
í £ C) ) 
2540 
( C ) 
i (C) ) 
2550 
$ (C) 
4400 
2550 
400 
£•870 


IF 

OR 


E$ (C) 

N ê ( S»4) 


> ss AND N$ (34) =0$ 
4400 

> :: *’ AND (N$ (35) =Q 
=Qê(C)) THEN GOTO 


$ 

$ 

2( 

$ 

$ 


IF Eê (D> < > 5 ‘ “ AND (Nê (36) =0 
OR Nê (49) =Sê(C) OR Nê (65) =0 
THEN GOTO 4400 
IF EêCE)0 !! í! AND (Nê (37) =0 
OR Nê(50)=Qê(C) OR Nê(66)=0 
THEN GOTO 4400 
IF Eê (F) < > S! ” AND¬ 


OR 

IF 

IF 


_ (Nê (38) =0 

Nê(51)=0ê(C)) THEN GOTO 

Nê (39) =Qê(C) THEN GOTO 4 


$ 

$ 


$ 

5 


IF 

OR 


Fê£D)o ss “ AND 
Nê(45)=Qê(C) OR 
THEN GOTO 4500 
IF Fê (5) < >* ! “ AND 
OR Nê(47)=Qê(C) OR 
THEN GOTO 4500 
Fê(.F)o ss í! AND 


Fê (B) 
(C) THEN GOTO 
2850 IF Fê(C) 
ê(C) OR 
4500 
2890 
i (C) 

(C) ) 

2900 
; ( C) 

(C) ) 

2910 
ê (C) 

4500 
2920 
500 
2930 
ê (D) 

4 300 
2940 
ê (D) 

4300 
2950 
ê (D) 

4300 
2950 
ê (D) 

4300 
2970 
ê (D) 

4300 
2980 
ê (D) 

2990 


> J: " AND Nê (40) =0ê 
4500 

. ^ AND (Nê í4-1) =0 

Nê(67)=0ê(C)) ThEH GOTO 


(Nê(42) 
Nê (68) 


=0 

=0 


(Nê(43)=0 
Nê (69) =0 


IF 

OR 

IF 

IF 

OR 

IF 

OR 

IF 

OR 

IF 

OR 

IF 

OR 


. T . . (Nê (4-4) =0 

Nê(45)=QêiC)) THEN GOTO 

Nê(45)=0ê(C) THEN GOTO 4 


Dê (B) < 
Nê(58) 

Dê (C) < 
Nê(59) 

Dê (D) < 
Nê(60) 

Dê (5) 


41 AND (Nê (22) =0 
=Qê(D)) THEN GOTO 

> ÍS 44 AND (Nê (23) =0 
=Gê(D)) THEN GOTO 

> 4 4 4 4 AND (Nê (24) =0 
=0ê(D)) THEN GOTO 

AND (Nê (25) =Q 


Nê(55)=Qê(D)) THEN GOTO 

Dê (F) < > 4 4 4 4 AND í Nê (25) =0 
Nê(56)=0ê(D)) THEN GOTO 


IF Nê(27)=Qê(D) OR 
THEN GOTO 4300 
IF Eê (B) < > 4 4 4 4 AND 


Nê(57)=0 
(Nê (25) =0 
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$ (D) 

4300 

3000 

£ CD) 

4400 

3010 

$ C D) 

4400 

3020 

$ CD) 

4400 

3030 

$ CD) 

4400 

3040 

$ CD) 

3050 

$ C D) 

4500 

3050 

$ CD) 

4500 

3070 

£ CD) 

4500 

3030 

$ CD) 

4500 

-3090 

$ CD) 

4500 

3100 

£ CD) 

3390 

$ CD) 

4600 

3900 

$ CD) 

4600 

3910 

$ CD) 

4600 

3920 

$ CD) 

4600 

3930 

$ CD) 

46O0 

3940 

£ CD) 

3950 

3960 

3970 

4000 

4010 

4100 

4110 

4200 

4210 

4300 

4310 

4400 

4410 

4500 

4510 

4500 

4610 

4620 

4700 

4705 

4710 

9000 

9010 

9020 


OR N$ í. ü 1— Ui i. D J 3 THfcN G O TU 

IF £4(00“ " AND (N4 (29) =0 
OR Ni(62)=04<D)3 THEN GOTO 

IF £4(0)0" " AND £N$(303=0 
OR N4(63)=04(D)) THEN GOTO 

IF E4 (E)<>" " AND (N$ 031) =0 
OR N4(52)=04(0)) THEN GOTO 

IF £4(F)o" " AND (N$(32)=0 
OR N4(533=04(0)) THEN GOTO 

IF N4 (33 3 =04(D) OR N$(543 =0 
THEN GOTO 44-00 
. IF F4ÍB30" “ AND (N4 (34)=0 
OR N4(643=04(03) THEN GOTO 

IF F$(C3 <>” “ ANO (N4 (353=0 
OR N4(653=04(03) THEN GOTO 

IF F4 (0 3 •; > " “ ANO (N$ (36) =0 
OR N4 (65) =04£03 3 THEN GOTO 

IF F4(E)<>“ " ANO (N4(37)=0 
OR Ni(493=04(03) THEN GOTO 

IF F4(F3 < >" " ANO (N$(333 =0 
OR N4(503=04(033 THEN GOTO 

IF Ni(393=04(0) OR N4(513=0 
THEN GOTO 4500 
IF Gi(B3<>“ “ ANO (N$(40)=0 
OR Ni(673=04(033 THEN GOTO 

IF Gi(03 O“ " ANO (N4(413=0 
OR N$(683=04£033 THEN GOTO 

IF 64(03 0 “ " ANO (N4 (42 3=0 
OR N$(693=0$(0)3 THEN GOTO 

IF G4ÍE3<>" " ANO £N4(433=0 
OR N4 (463 =04 (03 3 THEN GOTO 

IF 64(F3 <>" “ AND (N$(443=0 
OR N4 (473 =04£03 3 THEN GOTO 

IF N4(453=04(03 OR N4(433=0 
THEN GOTO 4600 
NEXT 0 

í-fcT T = INT (RN0*7) 

GOTO 4000+100*T 
LET Ii=“A“ 

GOSUB 490 
LET I4=“B“ 

GOSUB 490 
LET I4=“C” 

GOSUB 490 
LET I4=“D" 

GOSUB 490. 

LET I4="E“ 

GOSUB 490 
LET 14 = “F“ 

GOSUB 490 
LET I4=“6" 

GOSUB 490 
GOTO 3950 

PRINT AT 20., 0; " A ORAU 
SLOU 

GOTO 1760 
OLEAR 

SAUE "CONECOAO " __ 

GOTO 1 
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ARTIGOS 


Transferindo truques e programas 
em BASIC e Assembly do TK 85 
para o TK 90X e vice-versa 


Álvaro A. L. Domingues 


Desde o seu lançamento, a Microhobby sempre mostrou vá¬ 
rios programas e truques de programação para o TK 85 e seus 
compatíveis. Agora, ao lado do TK 85, estão aparecendo alguns 
programas para o TK 90X. Mas será que os usuários de ambos 
equipamentos, podem aproveitar todas as dicas e programas que 
vêm sendo publicados? 

Os conceitos fundamentais de programação que aparecem em 
qualquer artigo são de extrema importância para usuários de to¬ 
das as linhas de computadores. O que torna um artigo ou pro¬ 
gramas específicos para um equipamento são as suas particu¬ 
laridades. Existem diferentes filosofias de projeto, o que diversi¬ 
fica as soluções de hardware e software. Mas quantas vezes não 
deixamos de lado um programa interessante para um Apple só 
porque possuímos um TK 85? Imagine você se descobrisse, de¬ 
pois de recusar um programa desses, que a única diferença en¬ 
tre os equipamentos era apenas uma linha que continha um HO¬ 
ME e que poderia facilmente ser substituída por um CLS?... 

Semelhanças e diferenças 

Se você já teve oportunidade de operar um TK 90X, certamente 
percebeu que ele é bastante superior ao 85. Possui maior velo¬ 
cidade de processamento, cores, alta-resolução, caracteres grá¬ 
ficos especiais definidos pelo usuário e um número muito maior 
de funções, instruções e comandos. 

Entretanto, existem algumas semelhanças que merecem ser 
apontadas. Em primeiro lugar, o microcomputador é o mesmo, 
um Z 80A. Segundo, a linguagem empregada é a mesma, o BA¬ 
SIC. 0 TK 90X possui quase todos os comandos, funções e ins¬ 
truções do TK 85, acrescidos dos recursos que o caracterizam. 
As únicas instruções que não estão disponí veis são o SCROLL 
e o UNPLOT. 


Tabela 1 - Conversões do BASIC do TK 85 para o TK 90X 

TK 85 

TK 90X 

Comentários 

SCROLL 

Automático 

Se o programa foi desenvol¬ 
vido visando o uso de efeitos 
especiais de SCROLL, substi¬ 
tua por RAND USR 3582 ou 
LET X = USR 3582. 

PLOT X,Y 

PRINT AT 21- 
Y/2, X/2 

Coloque, após o ponto e vír¬ 
gula, o caractere gráfico espe¬ 
cial apropriado (teclas 1,2, 4 
ou 7). 

UNPLOT X,Y 

PRINT AT 21- 

Y/2, X/2;" " 



O PLOT do TK 90X é diferente do TK 85, uma vez que está 
preparado para alta-resolução. Portanto, não pode ser substituí¬ 
do diretamente. 


Do 90 para o 85 


Alguns comandos, funções e instruções do TK 90X não es¬ 
tão disponíveis no TK 85 (Tabela II), mas podem ser traduzidos 
sem muitos problemas (evidentemente com as limitações ine¬ 
rentes ao TK 85). Dois deles merecem destaque especial: BIN 
e READ/DATA/RESTORE. 

O primeiro, permite que um número seja transformado em de¬ 
cimal. A sua função é facilitar a colocação de instruções em Lin¬ 
guagem de Máquina ou a criação de caracteres especiais (não 
permitido no 85). 

O número binário deve ter 8 bits (tamanho da palavra nos dois 
computadores). Na figura 1, podemos ver como se efetua esta 
transformação manualmente. 

A tradução do READ/DATA/RESTORE é mais complicada e re¬ 
quer o uso de uma sub-rotina. 


Figura 1: Estrutura de um byte. 


- Potência de posição 

- Valor da posição 

- Bits 


BYTE 


2 7 

2 6 

2 5 

2 4 

2 3 

2 2 

2 1 

2° 

128 

64 

32 

16 

8 

4 

2 

1 

a 7 

a 6 

a 5 

a 4 

a 3 

a 2 

a i 

a o 


a7 ... ao - bits (assumem valores zero ou 1) 

Valor decimal do byte = a 7 x 2 7 + a 6 x 2 6 ... + a 0 x 2 o 
ou =a 7 x 128+ a 6 x 64... + a 0 


As instruções READ/DATA permitem que uma série de dados 
sejam armazenados no próprio programa (READ lê estes dados, 
e DATA os armazena). RESTORE permite que um mesmo con¬ 
junto de dados seja usado mais de uma vez. 
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HOBBYSHOP VEJA SE SUA CIDADE TEM O QUE VOCÊ PRECISA 


SÃO PAULO 


MICRO 


Service 


Inclusão de 24 novas funções (Read, Data, etc.), 
Slow, High Speed, Alta Resolução, Porta de 1/0, etc. 
para micro de tecnologia SINCLAIR ZX81. 
Manutenção de microcomputadores SINCLAIR (TK 
82,83,85, etc.) eTRS. 

Wilson de Assis — Tel.: 203-7967 . 


TKSOMTKMORSE 


2 Software de alta qualidade para Micros Sinclair com 16 K 

TKSOM — coloca som no seu micro; contém 6 músicas; você pode programar suas 
músicas. 

TKMORSE — lista sua mensagem em código morse; transmite sinais sonoros de men¬ 
sagem pré-gravada; transmite sinais sonoros simultaneamente com a digitaçSo. 

Preço até 30-06-85 Cr$ 28.000 

Envie cheque nominal para: 

MÁRCIO ACCIOLY 

Rua Dr. Saboia de Medeiros, 199-54 — Cep 04120 — São Paulo — SP 
e receba os 2 Software pelo correio, sem mais nenhuma despesa. 

PREÇOS ESPECIAIS PARA REVENDEDORES. 


Transforme seu TK 85. 

O mesmo efeito dos 
monitores de vídeo. 

Fundo: preto 
Letras: brancas 
Com uma simples modificação 
no microcomputador. 

TRANSVIDEO Fone: (011) 522-8100 



EFVJE Comércio de Computadores Ltda. 
■■■ TK85 x TK2000? 

Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou CP200 como parte de pagamento. 
TK2000 é na ENG. Showroom - Tel. 813-7570. 
Av. dos Tajurás, 406 — CEP: 05670. 



cipplG cursos 

CURSOS DIRIGIDOS DE 
MICROCOMPUTADORES 


• BASIC I e II e Applesoft 
• ASSEMBLER 6502 

• EDITOR DE TEXTO E PLANILHA ELETRÔNICA 


NOVAS TURMAS (c/ 12 alunos) 

INÍCIO IMEDIATO 


Reservas pelos Telefones: 853-9457 — 853-2408 Rua Suzano, 78 — Jardim Paulista — São Paulo 




lOflTP 

PECQfíú 

informática. 


O MELHOR 
SERVIÇO 
PELO MENOR 
PREÇO! 


Faça como os funcionários da SABESP, BURI, KIBON e outros. Venha desvendar o 
computador da DATA RECORD INFORMÁTICA. 

COBOL - BASIC - DIGITAÇÃO 

Turmas especiais para crianças de 8 a 14 anos. (BOLSAS DE ESTUDO) 

Av. Santo Amaro, 5.450 — Tel. 543-9937 — Brooklin — (em frente ao E.C. Banespa). 


QUAL A INTERFACE QUE ESTÁ FALTANDO 
NO SEU MICRO? 

É AQUELA QUE LHE DEVOLVERÁ O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 

MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo¬ 
rido, utilizando acrílico nas tonalidades verde e ambar. 

Informações com MASTER STING LTDA. 

Caixa Postal 18708 — São Paulo — SP 


SUPRIMENTOS P/INFORMÁTICA 


*FORMULÁRIOS 

* DISKETES * * FITAS IMPRESSORAS 

* PAPEL XEROGRÁFICO 

* SUPRI MENTOS P/TELEX E ESCRITÓRIO 

INF0RMAX -PRODUTOS P/ INFORMÁTICA LTDA. 


R-Domingos de Morais,254 _ 6°and. Cj.602-A 
Tel. ( 011 ) 570.7570 


SÃO JOSÉ DOS CAMPOS 


EKTRONIC - COMPONENTES E SISTEMAS LTDA. 


"SOFT-LOADER" — Interface micro-cassete para TK 82-C, 83, 
85 e Ringo. Indica nível certo para carregar programas sem proble¬ 
mas e falhas. (Veja Microhobby N? 10, 12 ou 13). Já um GRANDE 
SUCESSO PROVADO por centenas de usuários do TK. PREÇO: 
Cr$ 49.000,00 (Março). 

Mande seu pedido com cheque nominal ou vale postal para 
EKTRONIC COMPONENTES E SISTEMAS LTDA. Caixa Postal 
7004. São José dos Campos. CEP: 12200. Tel.: (0123) 291148. 



PROSERV-Processaieeto Dados.Cursos e Rep.Ltda. 
. MICROCOMPUTADORES (Novos e Usados) 


.CURSOS (Cobol. Basic. CP/N. Ilase II) 


.SUPRIRENTOS (Fonvlarios. Disquetes. Fitas, etc.) 

.LIVROS E REVISTAS 

.SOFTWARE (TRS80. Apple. TK85) 

L 9 .Nove de Abril 27 salas 626/628 


Tel: (0243) 429800 - V.Redonda - RJ 


MINAS GERAIS 



MILHO E VIDF C) 



Curso de Basic com turmas mensais 

Programas para toda linha de microcomputadores — Sinclair, 
TRS-80, Apple, TRS Color, Comodore CP/M — Aplicativos e Jo¬ 
gos (Solicite catálogo especificando seu equipamento). 

Livros e revistas nacionais e estrangeiros. Venda de Micros, peri¬ 
féricos e suprimentos. Soft House. 

VILLABELLA SHOPPING - LOJA 6 

Avenida Japão, 229 — Cariru — CEP 35160 — Fone (031) 821- 
2888 — Ipatinga — MG. 
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Tabela V - Instruções que não podem ser traduzidas 

Instrução 

Comentário 

SOUND 

Gera um sinal sonoro no 
alto-falante da TV 

BORDER 

Escolhe a cor da margem 
da tela 

PAPER 

Escolhe a cor da tela 
("papel") 

INK 

Escolhe a cor da "tinta" 

OVER 

Permite a sobre-exibição no 
vídeo, de dois caracteres, 
sem que nenhum deles seja 
apagado 

UDG 

Permite a criação de carac¬ 
teres gráficos especiais 

ATTR 

Fornece um valor para cada 
situação de um caractere na 
tela 

VAL$ 

Assume como string o con¬ 
teúdo de uma variável repre¬ 
sentada como um conjunto 
de caracteres em outra 
string 

CIRCLE 

Desenha um círculo na tela 

IN/OUT 

Controla a entrada (IN) e 
saída (OUT) de dados para 
periféricos adicionais 

TRACE 

Permite ao usuário acompa¬ 
nhar o desenrolar do progra¬ 
ma, mostrando o número da 
linha que está sendo 
executada. 

MERGE 

Permite a união de dois pro¬ 
gramas BASIC na memória 

POINT 

Indica a situação de um 
ponto na tela 

DRAW 

Desenha uma reta de acor¬ 
do com coordenadas 
específicas 

PLOT 

Funciona de maneira dife¬ 
rente do TK 85 (alta 
resolução) 

LINE 

Especifica a linha a ser exe¬ 
cutada num programa com 
auto-RUN. 

OPEN/CLOSE/MOVE/ERASE/ 

Instruções reservadas para 

CAT/FORMAT 

periféricos 


Outras características 


Cabe ainda chamar atenção para algumas características es¬ 
peciais do TK 90X. Uma delas é a presença de dois pontos, se¬ 
parando duas instruções, na mesma linha. Isso não é permitido 
no TK 85, o que nos leva a usar mais de uma linha na tradução 
de linhas com dois pontos. Este é um cuidado especial que deve 
ser tomado com as instruções IF/THEN. 


O TK 90X possui também alguns caracteres diferentes, tais 
como colchetes,chaves e letras minúsculas, que não estão dis¬ 
poníveis no TK 85. Isso pode ser contornado, simplesmente subs¬ 
tituindo estes caracteres ou eliminando-os do programa. 

Se você pretende traduzir um programa em Linguagem de Má¬ 
quina do 85 para o 90X, pode ter algumas surpresas. Uma de¬ 
las é a impossibilidade de rodar um jogo porque ele ficou rápido 
demais. Isso ocorre porque o tempo de processamento do TK 
90X (por uma série de razões) é muito mais rápido que o TK 85. 
Se você conhece bem o Assembly, poderá implementar loops 
"vazios" (que não executam nada) para retardar um pouco o an¬ 
damento do programa. 


Tabela II 

- Instruções e funções do TK 90X traduzíveis 
para o TK 85 . 

TK 90x 

Exemplo 

TK 85 

Comentários 

BIN 

LET A = BIN 
10010101 

LET A= nro. deci¬ 
mal. 0 nro. deve 
ser equivalente à 
conversão de bi¬ 
nário em decimal. 

A função BIN permite 
converter um número 
binário em decimal. Es¬ 
ta conversão é feita da 
seguinte forma: 
multiplica-se o valor de 
cada bit (0 ou 1) pelo 
valor de sua posição 
no byte, somando-se 
em seguida, todos os 
valores (ver figura 1). 

READ/DATA/ 

RESTORE 

READ X,Y 

DATA 90,10 
RESTORE 

Ver texto 

READ/DATA é um par 
de instruções usado 
para armazenar dados 
no interior do progra¬ 
ma. RESTORE restaura 
estes dados para nova 
leitura. (Ver texto). 

DEF FN/FN 

DEF FN 

A(X) = X*2 + 3 
LET T = FN(2) 

LET X$ = 

"X*2 + 3" 

LET X = 2 

LET T=VAL X$ 

DEF FN permite definir 
uma função (FN). 

SCREEN$ 

LET A$ 

SCREEN$ 

LET A$ = PEEK 
(PEEK 

16384 + 256* 

PEEK 16 

387 + 1+Y+33*X). 

Pesquisa caracteres na 
memória de vídeo. 


LET A = 2 3 

LET A = 2**3 

Operação de 
potenciação. 

FLASH 

PRINT AT 0,0; 
FLASH 1; 
"MENSAGEM"; 
FLASH 0 

FOR 1 = 1 TO 10 
PRINT AT 0, 0; 
"MENSAGEM" 
PRINT AT 0,0; 
"MENSAGEM" 
(caracteres inverti¬ 
dos) NEXT 1 

Faz a mensagem pis¬ 
car na tela. 

INVERSE 

PRINT INVERSE 

1; 

"MENSAGEM" 

Passar o cursor 
para G e digitar a 
mensagem com 

os caracteres 
inversos 

Exibe as letras inverti¬ 
das na tela 


Usando a linha REM 

Quem está acostumado a digitar programas em Linguagem de 
Máquina no TK 85 já deve conhecer o uso da linha REM como 
forma de armazenamento de rotina em Assembly. O que o usuário 
não sabe é que está criando na realidade uma linha de DATA. 
Podemos então aproveitar estes conhecimentos de Linguagem 
de Máquina para a nossa tradução. O que devemos fazer é colo¬ 
car os dados separados por vírgula como na linha DATA normal 
e fazer com que estes dados sejam lidos por PEEKS. Quem co- 
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nhece bem a estrutura da linha 1 REM sabe que no endereço 
16513 está a palavra chave, REM, cujo código é 234. O código 
da vírgula (,) é 26 e deverá ser checado para que se possa verifi¬ 
car o final da operação. 

Precisamos "envelopar" os dados de forma a permitir a sua 
fácil leitura e identificação pelo programa. Escolhemos o carac¬ 
tere gráfico (cursor G) SHIFT+A, que possui o código 8. Ele de¬ 
verá aparecer antes do primeiro dado e após o último. 

Para sabermos se o último dado foi lido, devemos checar o có¬ 
digo de final de linha que, no TK 85, é 118 (NEW UNE). 

Da forma apresentada, são permitidos dados númericos intei¬ 
ros e positivos, mas o programa pode ser adaptado para leitura 
de dados decimais, negativos ou de STRINGs. Na listagem 1 são 
mostradas a sub-rotina na READ e uma rotina de teste (linhas 
20 a 30). Repare na linha 10. Ela inicializa o contador de dados. 
Toda vez que precisarmos de uma nova leitura dos mesmos da¬ 
dos, teremos que acrescentá-la ao programa. Ela tem a mesma 
função do RESTORE, só que deve ser adicionada sempre antes 
da primeira leitura, já que tem a função de inicializar o contador 
de dados. 


Truques do TK 85 para o TK 90X 


Os leitores da Microhobby e usuários do TK 85 acostumaram- 
se a usar uma série de truques fornecidos pela revista. Quem 
não sabe "zerar" a primeira linha do programa ou reservar uma 
área na RAMTOP? Isto também é possível no TK 90X, confor¬ 
me você pode observar na tabela III. 


Tabela III - Alguns truques do TK 85 transferidos para o TK 90X 

Função 

TK 85 

TK 90X 

Zera a primeira 

POKE 16510,0 

POKE 

23754.0 

linha do programa 



Zera variável 

FRAMES 

POKE 16436,255 

POKE 16437,25 

POKE 

23672,0 

POKE 

23673,0 

Reserva uma área 
na RAM-TOP) 

TOP) de X bytes. 

POKE 16388,X-256 
* INT (X/256) 

POKE 16389,INT(X/256) 

CLEARX 


Zerar a primeira linha do programa é útil para evitar que esta 
seja editada por acidente, fazendo-se perder, por exemplo, uma 
listagem em Linguagem de Máquina no TK 85, ou uma linha DATA 
com dados que não podem ser alterados no TK 90X. 

A proteção de um programa na RAMTOP permite preservar um 
utilitário de uso geral de um NEW, uma vez que desejamos usá- 
lo em vários programas. Isso ocorre, por exemplo, num remune¬ 
rador de linhas. Podemos renume rar um programa corrente, mas 
também querer carregá-lo a partir de uma fita. A operação de 
LOAD costuma destruir o programa que está na memória, impe¬ 
dindo este tipo de operação. 

A variável FRAMES conta quadros de imagem da TV a partir 
do momento que o computador é ligado. Esta variável pode ser 
usada para contar o tempo disponível num jogo ou para gerar 
números aleatórios, entre outras coisas. 


Por falar em Linguagem de Máquina... 


Resta-nos fornecer os endereços do sistema. Na tabela IV apre¬ 
sentamos os endereços correspondentes em ambas as máqui¬ 
nas. A descrição do que faz cada uma delas está no manual do 
equipamento (capítulo 28, para o TK 85 e apêndice C, para o 
TK 90X). O uso destas variáveis é bastante conhecido por quem 
trabalha com Linguagem de Máquina. Explicar cada uma delas 
escapa as pretensões deste artigo. Uma fonte de consulta mui¬ 
to boa é o livro "Linguagem de Máquina para o TK", publicado 
pelas editoras Moderna/Micromega, destinado aos usuários do 
TK 85. 


Tabela IV - Variáveis do sistema 

Variável 

TK 85 

TK 90X 

BREG 

16414 

23655 

CDFLAG 

16443 

sem equivalência 

CH ADD 

16406 

23645 

COORDS 

16438 

23677 

COORDS (byte 2) 

16439 

23678 

DEST 

16402 

23629 

DEF CC 

16398 

23684 

D FILE 

16396 

sem equivalência 

DF SZ 

16418 

23659 

E LINE 

16404 

23641 

ERR NR 

16384 

23610 

E PPC 

16294 

23625 

ERR SP 

16386 

23613 

FLAGS 

16385 

23611 

FLAGX 

16429 

23655 

FRAMES 

16436 

23672 

LAST K 

16421 

23560 

MARGIN 

16424 

sem equivalência 

MEM 

16415 

23656 

MEMBOTT 

16477 

23698 

MODE 

16390 

23617 

NXTLIN 

16425 

23677 

OLDPCC 

16427 

23662 

PPC 

16391 

23621 

PRBUFF 

16444 

23296 

PR CC 

16440 

23680 

RAMTOP 

16388 

23730 

SEED 

16434 

23670 

S POSN 

16441 

23688 

S POS (byte 2) 

16442 

23689 

STKBOT 

16410 

23651 

STKEND 

16512 

23653 

S TOP 

16419 

23660 

STRLEN 

16430 

23666 

T ADDR 

16432 

23668 

VARS 

16400 

23627 

VERSN 

16383 

sem equivalência 

XPTR 

16408 

23647 


Nem tudo são flores 


O que falamos até agora torna fácil a utilização de alguns pro¬ 
gramas desenvolvidos para o TK 90X no TK 85. Veja bem alguns. 

Um grande número de programas não podem ser traduzidos, 
principalmente os que fazem amplo uso das caracaterísticas grá¬ 
ficas do 90X. Neste caso, o que podemos fazer é verificar as 
funções do programa; eliminar as partes gráficas ou adaptá-las 
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aos recursos do 85. Muitas vezes é mais fácil criar um novo pro¬ 
grama, com características semelhantes do que traduzir um pro¬ 
grama pronto. 

Sempre é possível elaborar bons programas em qualquer com¬ 
putador, desde que saibamos explorar ao máximo suas boas ca¬ 
racterísticas e respeitar suas limitações, sem esperar que a má¬ 
quina em questão faça milagres. 

Na tabela V mostramos um conjunto de instruções que não 
podem ser traduzidas para o TK 85 sem a utilização de recursos 
especiais (periféricos especiais, sub-rotinas em Assembly, alte¬ 
rações no hardware ou na ROM, etc.). Por ela podemos verificar 
as alterações que não devem ser realizadas em um programa 
comum. 


Listagem 1: READ/DATA e RESTORE no TK 85 


1 REM Ml , 10.500,30,40,101 
10 LET C=16513 
20 GOSUB 9000 
30 PRINT U. 

40 GOTO 20 

9000 REM SUB-ROTINfi REfiD 
9010 LET y=0 

9020 IF PEEK 0=26 THEN GOTO 9030 

9030 IF PEEK 0=234 AND PEEK (0+1 

}=3 THEN GOTO 9060 

9035 IF PEEK 0=118 THEN 5T0P 

9040 LET 0=0+1 

9050 GOTO 9030 

9060 LET 0=0+2 

9070 LET U=U+PEEK 0-23 

9030 LET 0=0*1 

9090 IF PEEK C =3 GR PEEK 0=25 TH 

EN RETURN 

9100 LET u=y*i0 

9110 GOTO 9070 


Estatística, a análise de 
dados no micro pessoal 

Parte II 

Fabio Augusto Polonio 


Na edição anterior da Microhobby, intro¬ 
duzimos alguns conceitos sobre Estatísti¬ 
ca, demonstrando as técnicas de apresen¬ 
tação de dados por meio de gráficos e ta¬ 
belas, e citando a importância no mundo 
atual. Des tacamos, em particular, a Esta¬ 
tística Descritiva, que é a parte desta ciên¬ 
cia que se baseia na afirmação de que a 
"A estatística é coleta, apresentação, aná¬ 
lise e interpretação de dados numéricos”. 

Nosso intuito maior foi situar o leitor 
neste universo, com exemplos práticos do 
cotidiano, de maneira que ficasse claro que 
o objetivo da Estatística é determinar leis 
de comportamento de uma população, 
atra vés de um número reduzido de dados. 

Dando continuidade aos nossos estu¬ 
dos, este artigo introduzirá conceitos de 
interpretação e análise de dados. Consti¬ 
tuirá o que chamaremos de "análise explo¬ 
ratória dos dados". 

Apresentamos um programa aplicativo 
educacional para ser rodado no TK-2000 
além de explorar recursos de interpretação 
de dados numéricos, que servirá para fi¬ 
xar os conceitos aqui descritos. 


Interpretação dos dados 

Após a coleta dos dados, eles deverão 
passar por uma crítica e posteriormente 
serem arranjados de maneira que fiquem 
de fácil visualização. A interpretação e 
análise dos dados coletados nos fornece¬ 
rão informações relevantes ao caso em 
estudo. 

A crítica dos dados é uma maneira de 
compilá-los ou resumí-los, tornando-os 
informativos 

(obs,diagr,nota rodapé), facilitando a com¬ 
paração com outros dados ou ainda jul¬ 
gando sua adequação à alguma teoria. 

Frequentemente os meios de comunica¬ 
ção visual utilizam gráficos, tabelas e por¬ 
centagens para justificar um argumento ou 
complementar uma explicação e apresen¬ 
tação de um fato. 

A interpretação dos dados, considera¬ 
da uma fase preliminar, fornece informa¬ 
ções que constituirão uma fase final, cha¬ 
mada inferência estatística. Esta permite 
que sejam confirmados os dados, 
testando-se o grau de verdade das infor¬ 


mações obtidas. 

Tipos de Variáveis 

0 primeiro conceito, necessário para 
uma perfeita compreensão do assunto, se¬ 
rá o de variável e suas classificações. Co¬ 
mecemos com um exemplo prático: 

Um pesquisador da companhia X está 
interessado em fazer um levantamento 
sócio-econômico, dos funcionários do de¬ 
partamento administrativo dessa empresa. 

Após ter circulado um questionário en¬ 
tre os empregados elaborou a tabela 1. 

Para cada elemento investigado tem-se 
associado um resultado (ou mais), corres¬ 
pondendo à realização de uma certa variá¬ 
vel. Consideramos como variável cada um 
dos campos prescritos na tabela 1 (esta¬ 
do civil, número de filhos, idade, etc.). 

Observamos que o pesquisador colheu 
informações sobre seis variáveis que po¬ 
dem ser divididas em duas classes: variá¬ 
veis quantitativas e variáveis qualitativas. 
Variáveis Quantitativas : são aquelas que 
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Tabela 1: Informações sobre estado civil, grau de educação, nro. de filhos, salário 
(expresso como fração do salário mínimo) idade e procedência de 20 funcionários da 
companhia X. 

Fonte: Dados hipotéticos. 


Nro. 

Estado 

Civil 

Educação 

(Grau) 

Nro.de 

Filhos 

Salário 

X.Salário 
Mínimo 

Idade 
Anos / 
Meses 

Região de 
Procedência 

1 

Solteiro 

Primeiro 

— 

4,00 

26 03 

Interior 

2 

Casado 

Primeiro 

1 

4,56 

32 10 

Capital 

3 

Solteiro 

Segundo 

- 

5,73 

20 10 

Outro 

4 

Solteiro 

Primeiro 

— 

6,66 

28 07 

Interior 

5 

Solteiro 

Primeiro 

— 

6,86 

42 00 

Interior 

6 

Casado 

Segundo 

2 

7,49 

34 10 

Capital 

7 

Casado 

Segundo 

3 

8,12 

33 06 

Outro 

8 

Casado 

Segundo 

2 

8,75 

27 07 

Capital 

9 

Solteiro 

Segundo 

- 

9,00 

30 01 

Interior 

10 

Solteiro 

Segundo 

- 

9,17 

22 02 

Capital 

11 

Casado 

Primeiro 

3 

10,15 

41 05 

Interior 

12 

Casado 

Primeiro 

2 

10,20 

39 08 

Interior 

13 

Solteiro 

Superior 

— 

10,53 

25 06 

Interior 

14 

Casado 

Segundo 

0 

11,05 

29 08 

Outro 

15 

Solteiro 

Segundo 

- 

11,85 

27 08 

Interior 

16 

Solteiro 

Superior 

- 

13,00 

26 05 

Capital 

17 

Casado 

Superior 

1 

14,55 

30 02 

Capital 

18 

Casado 

Segundo 

2 

16,00 

45 04 

Outro 

19 

Casado 

Superior 

0 

17,53 

32 01 

Outro 

20 

Casado 

Superior 

2 

20,33 

48 10 

Capital 


* * Existe uma diferença básica entre dado e informação. Um dado é um fato isolado, 
enquanto informação é um agregado de fatos organizados ou um dado utilizado com 
conhecimento e inteligência 


têm como possível realização um núme¬ 
ro, resultante de uma contagem ou men- 
suração. Nesta classe de variáveis enqua¬ 
dramos, por exemplo, os campos número 
de filhos, salário, altura de um indivíduo, 
peso, etc. 

Quando uma variável quantitativa pode 
assümir, teoricamente, qualquer valor den¬ 
tro de um intervalo de uma reta real, ela 
será uma variável contínua. Geralmente os 
valores assumidos por essa variável são re¬ 
sultantes de uma mensuração. 

Exemplo: O pêso de um indivíduo é uma 
variável contínua, pois a rigor, ele pode pe¬ 
sar 60 quilos; 60,5 quilos; 60,57 quilos; 
etc. 

Se os valores assumidos por uma variá¬ 
vel quantitativa forem pontos isolados de 
uma reta real, esta será chamada discreta 
e provém, normalmente, de uma conta¬ 
gem. Exemplo: número de filhos: 0,1,2,3... 
Variáveis qualitativas: quando as possíveis 
va riações assumidas por uma variável for¬ 
necerem uma qualidade ou atributo a um 
indivíduo pesquisado, ela será uma variá¬ 
vel qualitativa. 


Ela será qualitativa ordinal quando, for 
possível prever uma certa ordem nos seus 
valores. 

Exemplo: Educação: primeiro grau, se¬ 
gundo grau, superior. 

De outra forma, se não há essa possibi¬ 
lidade ela será chamada nominal. Exem¬ 
plo: Região de procedência: interior, Ca¬ 
pital, outros... 

O esquema da figura 1 resume estes 
conceitos: 



r 

fOrdinal 


Qualitativa Á 

^Nominal 

Variável < 

Quantitativa Á 

fDiscreta 


[ 1 

[Contínua 

Figura 1 




Representação da amostra 

Nesta fase, o maior interesse é conhe- 
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Traga este anúncio e ganhe um brinde na compra de 
qualquer item 
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cer as distribuições das possíveis realiza¬ 
ções das variáveis. Admite-se que os da¬ 
dos já tenham sido escolhidos, em confor¬ 
midade com alguma técnica de 
amostragem. 

Esta amostra deve ser representada por 
tabelas referentes a cada variável, eviden¬ 
ciando sua distribuição de realização e 
frequência. 

Logo que sejam coletados os dados ob¬ 
temos um cojunto de dados chamados da¬ 
dos brutos. 


Estes estão na ordem em que foram co¬ 
letados, sem nenhum arranjo. Assim, o 
conjunto de dados: 37,49,41,39,49,35, 
40,36,30, constituem os dados brutos. 

Após a obtenção desse conjunto, deve¬ 
mos arranjá-lo na ordem crescente ou de¬ 
crescente de frequência, o que constitui¬ 
rá o "rol". Exemplo : 10-10-10-12-12-13- 
15-17-17-20-23-23-25-26-30-30-30-30- 
32-33. 


A partir do exemplo anterior, fazèmos a 
distribuição de frequência para a amostra 
(fig.2). 


Xi 

Xi 

10 

3 

12 

2 

13 

1 

15 

1 

17 

2' 

20 

1 

23 

2 

25 

1 

26 

1 

30 

4 

32 

1 

33 

1 Figura 2 


Distribuição de freqüências é o arranjo 
dos valores e suas respectivas freqüên¬ 
cias. 

No caso de uma variável discreta, suas 
possíveis variações são representadas pe¬ 
los números absolutos , que correspondem 
ao valores assumidos pela variável. 

Quando a variável for contínua, ela se¬ 
rá representada por intervalos chamados 
classeo (figura 3). 


Figura 3 Exemplo de distribuição 
de freqüência de variável contínua 

Classes 

Fi 

35! - 45 

10 

45! - 55 

9 

55! - 65 

23 

65! - 75 

18 


6Õ~~ 


Podemos incrementar a distribuição de 
frequências com mais dados, como fre¬ 
quência acumulada e relativa. 

A frequência acumulada é a soma das 
frequências dos valores inferiores ou iguais 
ao valor dado. 


Exemplo : 


Xi 

Fi 

F acumulada 

0 

3 

3 

1 

5 

8 

2 

2 

10 


10 



Com a frequência relativa determinamos 
a porcentagem de um valor na amos tra 


Exemplo : 


Xi 

Fi 

F relativa 

1 

5 

5/14 

2 

7 

1/2 

3 

2 

1/7 

o 

14 

1 


Para complementar a representação da 
amostra, lançaremos mão de recursos 
gráficos. 

O histograma é um gráfico similar ao de 
barras e representa uma distribuição de 
frequências por meio de retângulos (no ca¬ 
so de variável contínua) ou retas (variável 
discreta). 

''Através dele podemos obter o polígono 
de frequência, cujos exemplos podemos 
observar no programa. 

O Programa 

O programa Estatis TK II é baseado no 
método "Bubble Sort" para classificação 
e arranjo de dados brutos, introduzidos via 
teclado. Fornece a distribuição de frequên¬ 
cias com tabelas e histogramas, para ca¬ 
da tipo de variável (opção do usuário). 


No caso de variável contínua, ele calcula 
o número de classes e as representa na 
tela com o uso de caracteres gráficos es¬ 
peciais do TK 2000. 

Afora esses caracteres especiais, não 
possui maiores detalhes de digitação. 

Na próxima edição incrementaremos o 
programa com sub-rotinas que o tornem 
mais completo, fornecendo além da dis¬ 
tribuição de frequências, medidas (de po¬ 
sição e dispersão, assunto) que será abor¬ 
dado nesse próximo artigo. 


ÍO TEXT 

20 REH ENTRADA DOS DADO 
S 

30 INPUT "COLOÔUE 0 TAMA 
NHO DA AH0STRA"-N 
40 T = í 
50 DIH U(N) 

60 DIH A(N) 

70 FOR I = 1 TO N 
80 PRINT "ENTRE COH 0 "• 

IDADO" 

90 INPUT A(I) 

Í00 NEXT 
ÍÍO HOHE 

120 FOR X = 1 TO N - 1 
130 FOR Y = X TO N 
140 IF A(X) > A(Y) THEN 
GOSUB 480 
150 NEXT s NEXT 
160 PRINT "QUAL 0 TIPO D 
E VARIAMEL ?": PRINT "0-DI 
SCRETA i-CONTINUA": GET V 
1: IF VI = "1" THEN 300 
170 GR : COLOR = 5: HLI 
N 10.,30 AT is HLIN 10,30 A 
T 6: HLIN 10,30 AT 40 
180 FOR V = 10 TO 30 STE 
P 10: VLIN 1,40 AT V: NEXT 

190 IF VI = "1" THEN 300 

200 HTAB 15: VTAB 3: PRI 
NT "XI": HTAB 26: VTAB 3: 
PRINT "F" 

210 F = 1 
220 H = 5 
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230 FOR I = i TO N 

240 IF I = N THEN 260 


440 IF H > 20 THEN H = 6 
: FOR P = 1 T0 2000: NEXT 

250 IF A(I) = A(I + í) T 

HEN F = F + ís NEXT 

260 HTAB í5s VTAB «: PRI 


: FOR H = 6 T0 20 STEP 2: 

HTAB 12: VTAB H: PRINT " 

NT A(I): HTAB 26: VTAB H: 


": HTAB 26: VTAB H: PR 

PRINT F:H(T) = F:T = T + 1 


INT " ": NEXT :M = 5: G0T0 

280 

450 PIV0 = PIV0 + H 

460 NEXT 

470 FOR K = 1 T0 2000: N 

:F = ÜH = H + 2 

270 IF H > 20 THEN H = 5 


: FOR P = i TO 2000: NEXT 
: FOR M = 5 T0 20 STEP 2: 


HTAB 15: VTAB H: PRINT " ' 


EXT : G0T0 540 

: HTAB 26: VTAB H: PRINT " 

": NEXT :H = 5: GOTO 280 


480 REM *»*TR0CA DE VA 
L0RES*#* 

280 NEXT 


490 AUX = A(X> 

290 G0T0 540 


500 A(X) = A(Y) 

300 K = INT ( SOR (N) + 


510 A(Y) = AUX 

.5): IF N < =25 THEN K = 


520 RETURN 

5 

310 R = A(N) - A(i) 

320 H = INT <<R / K) + . 

5) 

330 F = 0 


530 END 

540 FOR P = 1 T0 2000: N 

EXT : TEXT 

550 PRINT " INTERPRETE 0 


S VALORES D0 EIXO X,C0M0 S 

END0 0 NUMERO ORDINAL DA V 

340 h = 6 

350 PIV0 = A(i) 


ARIAVEL" 

560 FOR P = 1 T0 2000: N 

360 GR : COLOR = 5: HLI 


EXT 

570 HGR : HC0L0R = 3 

N 10,30 AT i: HLIN 10,30 A 

T 6: HLIN 10,30 AT 40 


370 FOR V = 10 T0 30 STE 


580 HPL0T 22,159 T0 250, 

P 10: VLIN 1,40 AT V: NEXT 


159 T0 250,0 T0 22,0 



590 B = 10: FOR A = 1 T0 

380 FOR I = 1 T0 N 


20 STEP 2: VTAB A: PRINT B 

390 PAR = PIV0 + H 


: HTAB 4: VTAB A: PRINT "r 

400 IF I = N AND A(I) < 


b":B = B - i: HTAB 4: VTAB 

PAR THEN F = F + i: G0T0 4 


A + i: PRINT "rZ": NEXT 

30 


600 C = 0: FOR A = 4 T0 3 

410 IF A(I) < PAR THEN F 


6 STEP 3: HTAB A: VTAB 22: 

= F + i: G0T0 460 


PRINT C:C = C + i: NEXT 

420 HTAB 13: VTAB 3: PRI 


610 COLOR = 3 

NT "CLASSES": HTAB 26: VTA 


620 U = 5:G = 7 

B 3: PRINT "F" 


630 FOR 8 = 1 T0 T - i*V 

430 HTAB 14: VTAB H: PRI 


= 41 - H(8) * 4 

NT PIV0;"rcrY";PAR: HTAB 2 


640 FOR P = U T0 G: VLIN 

6: VTAB H: PRINT F:«(T) = 


V,39 AT P: NEXT 

F:T = T + l:« = N + 2:F = 


650 U = U + 3:G = G + 3: 

1 


NEXT 


GUARDEESTENUMERO: 


É onde você encontra tudo para 
os micros da linha TK. 


• SOFTWARE (Jogos e Aplicativos) 

• ACESSÓRIOS 
• PERIFÉRICOS 
• LITERATURA 

• E O NOVO TK 90X - MICRODIGITAL 



o micro 
cheio de 
programas. 


• JOGOS APLICATIVOS ClBERIRDí] 


APLICATIVOS TK-85 / TK-2000II EM FITA 
EDISKETE ... .... 

Microideia 


PASSE SEU PROGRAMA EM FITA SEM 
PROBLEMAS UTILIZANDO A INTERFACE LH-3. 
CONHEÇA TAMBÉM O MONITOR LH-12 

R.C.C. 


FAÇA O CURSO DE BASIC NA MELHOR ESCOLA DE S.PAULO 



MfiQMOPfiTfi 

informática Itda. 


PROTEJA 

o seu 


niCROCOnPUTRDOR 


COM FILTRO DE 
LINHA 



contra 


ruído elétrico 

INTERFERÊNCIA: 

RÁDIO FREQUÊNCIA (RFI 




contra 


PICOS DE VOLTAGEM 
TRANSIENTES DE TENSÃO 


POTÊNCIA: ATINGE ATÉ 1,5 KVA 


V 


ZENTRANX 

Av. Vitor Manzini, 410 - Santo Amaro - São Paulo 
CEP 04746 -TEL.: PABX (011) 522-2411 
FilraLRK): (021)233^233 


y 
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SOMOS ESPECIALIZADOS EM INFORMÁTICA, ELETRÓNICA. MANUAIS DE FABRICANTES E DE CIRCUITOS, 
TELECOMUNICAÇÕES E ELETROTECNICA PORTUGUÊS - INGLÊS - ESPANHOL. 


ENCICLOPÉDIA DA LINGUAGEM BASIC 
Comandos, Instruções e funções 
dos Equipamentos das Diversas Linhas, 
por Clovis Pereira e Rossana B. Alcantara 

Apresentar ao usuário os comandos, instruções e fun¬ 
ções nos equipamentos das diversas linhas, esclarecen¬ 
do-lhe as dúvidas e fornecendo-lhe os elementos indis¬ 
pensáveis para o máximo aproveitamento dos mesmos é 
a proposta deste livro que, além disso, inclui: 

* Númerosos exemplos, com o intuito de ilustrar os ar¬ 
gumentos utilizados. 

* Pequenos programas para testar o uso dos comandos. 

* Sub-rotinas que facilitam o uso dos programas. 

CrS 92.000 

USANDO O ASSEMBLER 6502 
por Carlos Alberto C. Abreu 

Este livro, tem como objetivo, utilizar os recursos do mi¬ 
croprocessador 6502 usado nos computadores da linha 
Apple. 

As rotinas aqui descritas são relativas ao Apple e aju¬ 
dará a dar melhor performance aos seus programas.CrS 
75.000 

O DOMÍNIO DO CÓDIGO 
MÁQUINA NO ZX SPECTRUM 
por Toni Baker 

Este livro é dirigido a todos aqueles que tem conheci¬ 
mentos razoáveis de BASIC, mas cujo conhecimento de 
código máquina é nulo. Começando pelas primeiras no¬ 
ções em programação BASIC, introduziremos gradualmen¬ 
te o conceito de uma sub-rotina em código máquina e 
desenvolve-lo-emos no decurso do livro, até atingirmos 
programas completos unicamente em código máquina. 

CrS 65.000 

TK90X (ZX SPECTRUM) 


GUIA DO PRINCIPIANTE DO ZX SPECTRUM 

— Graves.CrS 45.000 

AS MELHORES ROTINAS PARA O ZX SPEC¬ 
TRUM — Hardman/Hewson.CrS 40.000 

OS 20 MELHORES PROGRAMAS PARA O 

ZX SPECTRUM - Hewson. CrS 40.000 

JOGOS DINÂMICOS PARA O ZX SPEC¬ 
TRUM - Hartnell. CrS 42.000 

APROFUNDAR O BASIC DO SPECTRUM - 

Lord. CrS 57.000 

CÓDIGO DE MÁQUINA PARA PROGRAMA¬ 
DORES AVANÇADOS - Holmes. CrS 42.000 

COMO PROGRAMAR O SEU ZX SPECTRUM 

— Hartnell/Jones.CrS 45.000 

BASIC NO TK90X - Mirshawka. CrS 45.000 


ZX SPECTRUM E TC 2068 NA GESTÃO DE 

PEQUENAS EMPRESAS - Campos. CrS 45.000 

PROGRAMAÇÃO PRÁTICA EM LINGUAGEM 
MÁQUINA PARA O SPECTRUM - Webb . CrS 58.000 
13 JOGOS PARA O SPECTRUM - Wren- 

Hilton.:. CrS 39.000 

O MEU PRIMEIRO LIVRO DO ZX SPECTRUM 

— Dewhirst/Tennison.CrS 46.000 

NOVAS AVENTURAS NO SEU ZX SPEC¬ 
TRUM - Shaw/Mortleman CrS 52.000 

49 JOGOS EXPLOSIVOS PARA O ZX SPEC¬ 
TRUM - Hartnell.CrS 52.000 


ZX-81 (TK82, 83, 85, 
CP200 E COMPATÍVEIS) 


O SEU MICRO E O MUNDO EXTERNO - Pa¬ 
ra seu ZX81, TK 82, 83, 85, CP200, 

TK200, etc - Schon.CrS 49.800 

DISSECANDO JOGOS EM BASIC COMEN¬ 
TADO LINHA POR LINHA - Para TK82, 83, 

85, CP200. CrS 32.000 

EVOLUINDO NO BASIC TK - Stein . CrS 43.000 

CRIANDO EM LINGUAGEM DE MÁQUINA - 
Montagens de Jogos em Asembly Z80 para 
CP200, Ringo, TK82, 83, 85, Sinclair ZX81 

- Ejchel. CrS 48.000 

SUPER BASIC TK - para Sinclair ZX-81, CP 
200, TK82, 83, 85, Ringo, TS1000 - 

Maldonado.CrS 46.000 

200 DESENHOS PARA TK E CP200 - Lima CrS 42.000 

BASIC SINCLAIR - Christmann. CrS 32.000 


APPLE 


JOGOS GRÁFICOS PARA O APPLE - 

Coletta.CrS 52.000 

COMO PROGRAMAR SEU APPLE - 

Cook/Hartnell.CrS 29.000 

MANUAL APPLE INCLUINDO BASIC - Com 
aplicações de Arquivos em disco — Kantaris CrS 36.000 
PROGRAMAS COMERCIAIS DA LINHA AP¬ 
PLE PARA PEQUENA EMPRESA - 2 vols. 


— Abreu. CrS 84.000 

77 PROGRAMAS PARA LINHA APPLE - 

Abreu. CrS 42.000 

20 JOGOS INTELIGENTES EM APPLESOFT 

— Para toda linha Apple — Palmer. CrS 18.000 

APPLE II - GUIA DO USUÁRIO - 2. a Edi¬ 
ção - Poole/McNiff. CrS 75.000 

APPLE II - GUIA DO OPERADOR - Gifford CrS 1 5.000 
PROGRAMAS USUAIS EM BASIC PARA SIS¬ 
TEMAS COMPATÍVEIS COM O APPLE II - 

Poole.CrS 39.000 

MANUAL DE BASIC PARA SISTEMAS COM¬ 
PATÍVEIS COM O APPLE II - Peckham.... CrS 49.000 

POR DENTRO DO APPLE - Tucci. CrS 70.000 

A PRIMEIRA MORDIDA - Tucci. CrS 36.000 

DÊ UM APPLE À SUA VIDA - Mirshawka CrS 80.000 


PREÇOS SUJEITOS A ALTERAÇÃO. 


L/fec 

LIVRARIA EDITORA TÉCNICA LTDA. 


RUA DOSTIMBIRAS, 257 

01208 — São Paulo — SP 
Tel.: 220 8983 
Caixa Postal 30.869 





























A MANIA DE SER 
INTELIGENTE 


GPU APPLE, drivers, 
interfaces e impressoras. 
0 melhor preço do mercado. 

Consulte-nos. 
Cobrimos qualquer oferta. 


Temos joystickis 
analógicos p/APPLE. 


Míçm/ISSIS 


Al. Santos, 847 - 
Fone: 283-5376 - 
São Paulo 


INFORMAX 

é a solução 

a 


— FORMULÁRIOS 
— DISKETES 
— FITAS IMPRESSORAS 
E MAGNÉTICAS 


Temos também suprimentos para 
Telex, Xerox e Escritório. 



INFORMAX 

produtos para informática Itda. 


Tels.: 570-7570 — 570-6014 
Vendas: 

R. Domingos de Morais, 254 — 
6? andar — Cj. 602 — A 
CEP: 04010 — São Paulo — SP 



FALANDO 

A MESMA LINGUAGEM 


A especialização de uma agência de publicidade 
numa determinada área econômica é sempre um 
fator positivo. 

A EDIMAQ, em razão dos sólidos conhecimentos que 
possui na área da informática, especializou-se em 
produzir e veicular anúncios das empresas ligadas ao 
setor. 


Conhecendo o mercado em todas suas nuances, a 
EDIMAQ dá à seus clientes um tratamento 
direcionado, com vistas à um público especifico, o 
que resulta sempre em dados positivos. 
Falando a mesma linguagem dos empresários do 
setor, a equipe da EDIMAQ tem muito mais 
condições, até técnicas, de colocar seu produto no 
mercado, de forma racional e objetiva. 


Além disso, a EDIMAQ mantém uma estrutura 
funcional, que pode cuidar da produção de todo 
material promocional de sua empresa: catálogos, 
prospectos, mala direta, anúncios classificados e 
Marketing em geral. 


Dentro de uma filosofia de barateamento do preço 
das veiculações, criamos espaços na imprensa 
especializada, nos quais os produtos ou serviços de 
sua empresa terão uma divulgação destacada a um 
preço inferior a uma veiculação normal. 


Consulte-nos, nós falamos a mesma linguagem, a 
linguagem da informática. 


R. Domingos de Moraes, 864 l.° and. 

Cj. 108 A Tels.: (OU) 549-3778 549-7344 
678-0309 S.P. 





SOLUÇÕES INTELIGENTES E RACIONAIS 


A TROPICAL DISPÕE 
n DE LARGA 
u EXPERIÊNCIA E 

MODERNA TECNOLOGIA 
O RARA OFERECER A 

EMPRESAS, ESCRITÓRIOS, 
O ESCOLAS, LOJAS 
E CONSULTÓRIOS 



8 OU 16 BITS 
CONSULTORIA 
SUPRIMENTOS 


O 

O 

o 


DESENVOLVIMENTO E VENDA SOFTWARE 
IMPLANTAÇÃO DE SISTEMAS 
CURSOS E TREINAMENTO 


O REVENDEDOR 
AUTORIZADO: 
O • APPLETRONICA 

• CCE 

_ • COMPO 

° • LOGODATA 

• MICROSOFT 

• PROLÓGICA 

• UNITRON 


ATENDENDO TODO O BRASIL 

(ou) 543-9859 * 533-4971 

RUA CALIFÓRNIA - 1.000 • BROOKLIN 
SÃO PAULO - S.P. 



EDIMAQ 




Super 

Menus 


Cesar de Afonseca e Silva Neto 
e Wilson José Tucci 


Você já deve tê-los utilizado muitas ve¬ 
zes, mas provavelmente poucas vezes ou¬ 
viu falar deles. Eles são os menus. Um me¬ 
nu se faz necessário toda vez que um pro¬ 
grama realiza mais do que uma função, fa¬ 
cilitando inclusive, sua escolha. 

0 menu deve ser original, simpático e 
atraente, na medida do possível. Podemos 
dizer inclusive, que um belo menu valori¬ 
za ainda mais um bom programa. 

0 programa apresentado neste número 
não encerra o assunto em si mesmo, mas 
apresenta três tipos de menus que, utili¬ 
zados de maneira original ou incrementa¬ 
dos, poderão dar nova vida às apresenta¬ 
ções dos seus futuros programas. 

O algoritmo utilizado na elaboração dos 
três menus é praticamente o mesmo. O 
que muda é a formatação da tela (aqui en¬ 
tra a criatividade do usuário), tornando-os 
mais ou menos atraentes. 

A seguir, analisamos o segundo tipo, 
que é, sem dúvida, o mais comum: o "Ma- 
gic Window". 

Neste tipo de menu, o posicionamento 
da opção desejada deve ser feito direta¬ 
mente pelos números correspondentes ou 
através das teclas e Feito isto, 
a escolha pode ser confirmada com a te¬ 
cla (RETURN). A opção corrente, aquela 
que está vigorando no momento, será 
mostrada com uma barra em modo INVER- 
SE a fim de salientá-la. Caso outra seja es¬ 
colhida, a barra será deslocada para a no¬ 
va opção (variável OP) e, consequente¬ 
mente, a opção anterior (variável OV) de¬ 
verá ser reimpressa em modo NORMAL. 
Acompanhe a descrição das linhas do pro¬ 
grama para melhor compreensão: 


LINHA 

FUNÇÃO 

510 

formar a tela base 

520 

variáveis de controle 
(veja tabela abaixo) 

540 

imprime a barra na 
posição inicial 

560 a 630 

controle da seleção 
das opções 

640 

"apaga" a barra e 
imprime a opção ve¬ 
lha (OV) 


650 

imprime a barra na 
nova opção (OP) 

660 

dá volta ao coman¬ 
do GET 

Convém lembrar que as opções que apa¬ 
recem na tela foram definidas nas linhas 

120 a 200, 

podendo ser mudadas para 

quaisquer outras. 

Bom proveito!! 

VARIÁVEL FUNÇÃO 

M $ () 

vetor das mensagens 

OP 

opção corrente 

OV 

opção velha 

V,H 

posição vertical e horizon¬ 
tal do início do menu 

L 

número limite de 
mensagens 

DIST 

distância entre cada opção 


no menu 

TP$ 

tipo de menu 

P 

código ASCII da tecla 
pressionada 


100 REH SUPER HEHUS 
ÜO REH DEFINIR HENSAGE 
NS 

120 HMD = "IMPRIHIR ETI 
QUETAS" 

130 HS(2) = "PESQUISA ALE 
ATORIA" 

140 HM3) = "ALTERAR REGI 
STROS* 

150 HM4) = "ENTRAR HATER 
IA PRIHA" 

160 HK5) = "CONTROLE DE 
ESTOQUE" 

170 HS(6) = "LISTAGEH ALF 
ABETICA" 

180 HS(7) = "EMITIR ANIVE 
RSARI0S" 


190 Hi(8) = "ATUALISAR RE 
GISTR0S" 

200 HK9) = "REDEFINIR 0 
TIPO" 

210 0P = 1 

220 G0SU8 900 

230 VTAB 14: HTAB 5: INP 

UT "TIPO (1 A 3) s";TPI 

240 0N UAL (TPS) G0T0 3 

00,500,700 

300 REH TIPO Bi 

310 60SUB 900 

320 VTAB 6: HTAB 17: PRI 

NT "TIPO";: INVERSE : PRIN 

T TPl: NORMAL 

330 H = 9:V = 8:L = 9:DIS 

T = 1 

340 FOR I = 1 T0 L: VTAB 
V + I * DIST: HTAB H: PRI 
NT I; SPC( 2);HS(I): NEXT 

350 VTAB V + 0P * DIST: 
HTAB H - 4: PRINT *--> ";0 
P; SPC( 2) ? : INVERSE : PRI 
NT Hi(OP): N0RHAL 
360 GET PI:P = ASC (PI) 

370 IF P = 13 THEN 460 
380 IF P = 21 THEN 0V = 
OPsOP = 0P + 1 
390 IF P = 8 THEN 0V = 0 
P:0P = 0P - 1 
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400 IF P > = 49 AND P < 

= 49 + L THEN OV = OP:OP 
= P - 48 

410 IF OP < 1 THEN OP = 

L 

420 IF OP > L THEN OP = 
í 

430 VTAB V + OV * DIST: 
HTA8 H - 4: PRINT SPC( 4 
;0V; SPC( 2);MS(OV> 

440 VTAB V + OP * DIST: 
HTAB H - 4: PRINT *--> ";0 
P; SPC( 2)-: INVERSE : PRI 
NT NI(OP): NORHAL 
450 GOTO 36Q 
460 IF OP = L THEN 220 
470 GOSUB 960: GOTO 300 
500 REM TIP0B2 
510 HOME : GOSUB 900 
520 V = 8:H = íí:L = 9:01 
ST = 1 

530 VTAB 6: HTAB 17: PRI 
NT "TIPO";: INVERSE : PRIN 
T TPI: NORMAL 
540 FOR I = 1 TO L: VTAB 
V + I * DIST: HTAB H: PRI 
NT I; SPC( l);Mi(I): NEXT 

550 INVERSE : VTAB V + 0 
P * DIST: HTAB 4: PRINT S 
PC( H - 4)jOP• SPC( i);MI( 
OP); TABÍ 38): NORMAL 
560 GET PI 
570 P = ASC (PI) 

580 IF P = 13 THEN 670 

590 IF P = 21 THEN OV = 

OP:OP = OP + 1 

600 IF P = 8 THEN OV = 0 

P:OP = OP - 1 

610 IF P > = 49 AND P < 

= 49 + L THEN OV = OP:OP 
= P - 48 


620 IF OP < 1 THEN OP = 

L 

630 IF OP > L THEN OP = 

1 

640 VTAB V + OV * DIST: 
HTAB 4: PRINT SPC( H - 4) 
;0V; SPC( l);Mf(OV); TAB( 
38) 

650 INVERSE : VTAB V + 0 

P » DIST: HTAB 4: PRINT S 

PC( H - 4);0P; SPC( 1);MI( 

OP); TAB( 38): NORMAL 

660 GOTO 560 

670 IF OP = L THEN 220 

680 GOSUB 960: GOTO 500 

700 REM TIP0N3 

710 GOSUB 900 

720 VTAB 6: HTAB 17: PRI 

NT "TIPO";: INVERSE : PRIN 

T TPI: NORMAL 

730 H = 10:V = 8:L = 9:DI 

ST = 1 

740 FOR I = 1 TO L: VTAB 
V ♦ I * DIST: HTAB H: PRI 
NT I; SPC( 2);MI(I): NEXT 

750 VTAB V + OP * DIST: 
HTAB H - i: PRINT CHRI (9 
i);OP;"*"; SPC( DjMKOP) 
760 VTAB 20: HTAB 12: IN 
VERSE : PRINT MI(OP);.* NOR 
MAL : PRINT TAB( 39) 

770 GET PI 
780 P = ASC (PI) 

790 IF P = 13 THEN 885 
800 IF P = 21 THEN OV = 
OP:OP = OP + 1 
810 IF P = 8 THEN OV = 0 
P:OP = OP - 1 


820 IF P ) = 49 AND P < 

= 49 + L THEN OV = OP:OP 
= P - 48 

830 IF OP ( 1 THEN OP = 

L 

840 IF OP > L THEN OP = 

1 

850 VTAB V + OV * DIST: 
HTAB H - i: PRINT SPC< 1) 
;0V; SPC( 2);MI(0V) 

860 VTAB V + OP * DIST: 
HTAB H - i: PRINT CHRI (9 
i);OP; ,,A "; SPC( 1);MI(0P) 
870 VTAB 20: HTAB 12: IN 
VERSE : PRINT MI(OP) ; : NOR 
MAL : PRINT TAB( 39) 

880 GOTO 770 
885 IF OP = L THEN 220 
890 GOSUB 960: GOTO 700 
900 REM MONTAR A TELA 
910 HOME : INVERSE 
920 VTAB 2: PRINT ":"; S 
PC( 11): HTAB 28: PRINT í 
PC( 12);":": VTAB 23: PRI) 

T ":"; SPC( 38);":"; 

930 FOR I = 3 TO 22: VTA 
B I: HTAB 1: PRINT " " ; : » 
TAB 40: PRINT " NEXT 
940 VTAB i: HTAB 14: PRI 
NT ":"; SPC( 11);":": HTAI 
14: PRINT " SUPER MENUS ' 

: HTAB 14: PRINT SPC 
11);":": NORMAL 
950 RETURN 

960 REM SAIDA DOS MENUS 

970 HOME : VTAB 14: HTAB 
10: PRINT MKOP): NORMAL 
: FOR I = 1 TO 1000: NEXT 
: RETURN 
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Integração Númerica 
no TK 2000 

Ralph Marques Aguiar 


0 principal objetivo deste programa desenvolvido no TK-2000 
é calcular a integral definida entre dois pontos, usando para is¬ 
to, três métodos de integração numérica. 

A função pode ser apresentada de duas formas: 

Analítica:Y=(x), a função é definida através de uma equação. 

Numérica: a função é definida através do seu domínio e da sua 
imagem, exemplo na tabela A. 


Representemos por Y 0 , Y 1f Y 2 , Y 3 ,...,Y n _ 1 , Y n os valores da 
função f(x) em X 0 , X^, X 2 , X 3 ,..., X n _<| , X n , isto é: 

V 0 = f(x 0 ) 
y^ = fíx!) 

Y 2 = f(x 2 ) 

Y n = f(x n ) 


i 

0 

1 

2 

3 

4 

5 

6 

7 

8 

- DOMÍNIO 

- IMAGEM 

Xi 

0 

0,5 

1,0 

1,5 

2 

2,5 

3,0 

3,5 

4 

Fi 

1,5 

0,75 

0,5 

0,75 

1,5 

2,75 

4,0 

6,75 

10 



Façamos as somas: 

Yq Ax +Y*| Ax+Y 2 Ax + ... -f-Y n _i AxY -j Ax+Y 2 Ax+Y 3 Ax + ...+Y n A 

Cada uma destas somas é a “Soma Integral" para f(x) no in¬ 
tervalo [a,b]. Por isso, representa aproximadamente a integral: 

j g f(x)dx = -^-(Yq+Y 1 +Y 2 +... +Y n _ 1 ) 
d n 

£ f(x)dx = (Y 0 +Yi +Y 2 +Y 3 +...+Y n ) 

As expressões 1 e 2 são fórmulas dos retângulos. Na figura 
I, torna-se claro que, se f(x) é uma função positiva e crescente, 
então a expressão 1 representa a área da figura, composta pe¬ 
los retângulos abaixo da curva Y=f(x) (retângulos inferiores) e 
a expressão 2 fornece a área da figura composta pelos retângu¬ 
los superiores. 

Os erros cometidos no cálculo de integrais pela aplição da fór¬ 
mula dos retângulos, será tanto menor quanto maior for o nú¬ 
mero n (isto é, quanto menor for o passo H = Ax). 

Procedimentos de execução: 

Devemos primeiramente definir o tipo (ou forma) da função 
da qual iremos calcular a integral. 

Se a forma for analítica, a função passará para a forma BASIC 
(operadores aritméticos da Linguagem) através do comando: 
450 DEF FN F(x) = XXX 


Exemplo de integração numérica 

Exemplo de integração numérica usando a fórmula dos retângulos 

Suponhamos que no intervalo [a,b] seja dada uma função 
Y=f(x) contínua e deseja-se calcular a j ^ f(x)dx. 

Vamos subdividir o intervalo [a,b] nos pontos 

a= X 0 , X 1f X 2 , X 3 .X n =b 

em "n" partes iguais, de comprimento igual, H = (letra delta)x, 
onde: 



n 


-► Indicação do cursor na tela Função na forma BASIC 

Após definir a função, digite RUN 2000, que retorna à execu¬ 
ção do programa. A seguir será executada a função em ques¬ 
tão, para os valores de x no intervalo de [2,10]. No caso dos va¬ 
lores encontrados para Y sejam os esperados prossiga com o 
processamento. Caso contrário, a opção não retorna ao proces¬ 
so, para o ponto de çntrada de f(x). 

Os valores de x e y mostrados no teste de [2,10], terão apre¬ 
sentadas apenas as quatro primeiras casas dos números. 

Exemplo : 153878 1538 será o valor mostrado. 

Se a forma for numérica, a imagem da função será passada 
ao programa como o indicado no processamento. Observe que 
somente a imagem será passada. 
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Do domínio serão passados a e b. 

Domínio e imagem já foram mostrados na tabela A. 

Em ambas as formas acima deve-se passar ao programa o nú¬ 
mero de intervalos N e os limites inferior e superior para cálculo 
b — a 

de Ax =-fundamental ao desenvolvimento de ambas as 

n 

desenvolvimento de ambas as formas e todos os métodos. 

Para a forma númerica: N = (i n - i 1 ) - 1, como exemplo, na 
tabela A: N = (8-0)-1 = 7 

Para a forma analítica: N = n. Tendo em vista que: 

- 1 - 1 - 1 -*-r— 

a X! x 2 x 3 b 

n = 3 


Observação: 

N nunca pode ser maior que 400 a e b devem satisfazer a con¬ 
dição a<b 



Observações quanto ao valor de N. 


fl refere-se à função da aproximação do 
resultado da integral para o mesmo 
intervalo em relação aos métodos de 
resolução. Ao valor de N, ou seja, no 
mesmo intervalo, com a mesma 
aproximação, temos a variação de 
N em função dos métodos. 



f2 é a função do A=b-a 
em relação aos métodos 
de resolução e 
ao valor de N. 


Í0 REH »***»»«»»»**»*#* 
»#*#*#*#**## 

11 REH * INTEGR 

AL * 

12 REH * RIO 15/0 

8/85 » 

13 REH «AUTOR:RALPH HAR 
SUES AGUIAR» 

H REH «OBJETIVO: EFETU 
AR CÁLCULOS* 

15 REH « DE INTEGRAIS P 
OR HETODO * 

16 REH « NUHERI 

CO * 

17 REH «««««»«««««**««* 
**#**#**#*#« 

18 REH 

20 SPEED= 50 
25 CLEAR 

30 H0HE : VTAB 3: HTAB 1 
3: PRINT "INTEGRAL* 

40 VTAB 6: HTAB 5: PRINT 
"AUTOR : RALPH MARQUES A6 
UIAR" 

50 VTAB 8: HTAB 5: PRINT 
"VERSÃO 1.3" 

55 VTAB 10: HTAB 5: PRIN 
T "RIO, AGOSTO DE 1985" 

60 SPEED= 255 
70 H0HE : VTAB 2: HTAB 1 
4: PRINT "HENU PRINCIPAL" 
80 VTAB 6: HTAB 4: PRINT 
"ESTE PR0GRAHA CALCULA A 
INTEGRAL DE" 

90 PRINT TAB( 4)"UHA FU 
NCAO DA FORHA ANALÍTICA Y= 
F(X)" 

100 PRINT TAB( 4)"0U SO 
B A FORHA NUHERICA." 

110 PRINT TAB< 4)"RESP0 
NDA A SEGUIR 6UAL A FORHA" 

120 PRINT TAB( 4>"DE SU 
A FUNCA0." 

125 PRINT * " 

130 PRINT TAB( 7)"0BS: 
OUTRO HENU A SEGUIR INDICA 
RA" 

140 PRINT TAB( 12)"8UAL 
0 HETODO DESEJADO" 

150 VTAB 15: HTAB 6: PRI 


NT "(1) FORHA ANALÍTICA" 
160 VTAB 17: HTAB 6: PRI 
NT "(2) FORHA NUHERICA" 

170 VTAB 19: INPUT "ENTR 
E C0H 1 0U 2 ==> ";TPZ 
180 IF TPZ = 1 0R TPZ = 

2 THEN G0T0 200 

190 S0UND 100,100 T0 100 

,100 

192 PRINT " ": PRINT TA 
B( 3)"ERRO NA 0PCA0 --> RE 
DIGITE" 

196 G0T0 170 

200 0N TPZ G0SUB 330,610 

210 G0SUB 690 

220 0N HTZ 60SUB 810,870 

,930 

230 H0HE : VTAB 3: HTAB 
8: PRINT "-VAL0R DA INTEG 
RAL—" 

240 VTAB 9: PRINT TAB( 
ií)"I= " TAB( 15)AD 
250 VTAB 18: HTAB 7: PRI 
NT "DESEJA CALCULAR NOVA I 
NTEGRAL?" 

255 PRINT " " 

260 INPUT "RESPONDA (S/N 
) ==> ";RI 

270 IF RS ( > "S* THEN 
GOTO 280 
274 CLEAR 
276 G0T0 70 
280 END 

330 REH «««**»*«««*««»« 

»« 

332 REH «FORHA ANALITIC 
A* 

334 REH «*«*»««»««»«*«« 
#* 

340 H0HE : VTAB 3: HTAB 

12: PRINT "FORHA ANALÍTICA 

// 

350 VTAB 6: HTAB 5: PRIN 
T "DIGITE A FUNCA0 NA F0RH 
A BASIC" 

355 VTAB 7: HTAB 5: PRIN 
T "C0H0 A SEGUIR:" 

360 VTAB 9: HTAB 7: PRIN 
T ">450 DEF FN F(X)=XX 0ND 
E XX=FUNCA0" 

370 VTAB ii: HTAB 5: PRI 
NT "AP0S DIGITAR F(X), C0H 
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ANDAR:" 

380 VTAB 13: HTA8 7: PRI 
NT "RUN 2000 -> RETORNO A 
EXECUCAO" 

390 VTAB 16: HTAB 2: PRI 
NT "OBS: CASO HAJA ERRO DE 
NUHERACAO" 

400 VTAB 17: HTAB 7: PRI 
NT "RESSETAR 0 PROGRAMA E 
REINICIA-LO" 

410 END : RETURN 
420 REM «RETOMA PROCESS 
0« 

430 HOME : VTAB 2: HTAB 
7: PRINT "TESTE DA FUNCAO 
DE 2 A 10" 

440 VTAB 5: HTAB 13: PRI 
NT " ! Y " 

445 VTAB 6: HTAB 13: PRI 
NT "-" 

448 PRINT " " 

450 DEF FN F(X) = 20 * 

2 

455 FOR X = 2 TO 10 
460 Y = FN F(X) 

470 EI = STRI (X):D! = 
STRI (Y) 

475 EXI = MIDI (EI,1,4): 
DY! = MIDI (01,1,4) 

480 PRINT TAB( 14)EX! T 
AB( 19)"!" TAB( 2DDY! 

490 NEXT X:X = 0 

500 PRINT " ": PRINT TA 

B< 5)"A FUNCAO ESTA OK?" 
510 PRINT " ": INPUT "RE 
SPONDA (S/N) =) "-T! 

520 IF TI = "S" THEN GO 
TO 530 

525 GOSUB 330 

530 TPZ = i: GOSUB 1010: 
REM ENTRADA DE A,B,N 
540 REM «CALCULO DOS VA 
LORES DE F(X)« 

550 INZ = N + 1:IV = A 
555 FOR I = 1 TO INZ 
560 X = IV 
565 CY(I) = FN F(X) 

570 IV = IV + H 

580 NEXT I 

590 LTZ = INZ 

600 GOTO 210 

610 REM ««*««««««*«««*« 


« 

614 REM «FORMA NUMÉRICA 


LO» 

ft 


814 REM ***««««««»«««•* 

616 REM ««««««««*«*«*«« 


«** 

* 


820 S = 0:AD = 0 

620 GOSUB 1010: REM ENT 


830 FOR I = 1 TO LTZ 

RADA DE A,B,N 


840 S = S + CY(I) 

625 TPZ = 2 


842 NEXT I 

630 HOME : VTAB 3: HTAB 


850 AD = H « S 

13: PRINT "FORMA NUMÉRICA" 


860 RETURN 

870 REM ««x»»*»*»*»***» 

640 VTAB 6: HTAB 5: PRIN 


*« 

T "DIGITE AGORA OS VALORES 


872 REM «ROTINA TRAPEZI 

DE F(X)" 


0* 

646 INZ = N + 2 


874 REM *«**««««»«««»»« 

650 FOR I = 1 TO INZ 


«« 

660 PRINT " ": INPUT "EN 


880 S = 0:AD = 0:TRZ = LT 

TRE F(X) ==> ";CY(D 


Z - 1 

670 NEXT I 


890 FOR I = 2 TO TRZ 

675 LTZ = INZ 


900 S = S + CYÍI) 

680 RETURN 


906 NEXT I 

690 REM ««««««««««««««« 


910 RL = (CY(i) + CY(LTZ) 

***** 


) / 2 

700 REM «ROTINA TELA ME 


912 AD = H * (RL + S) 

TODO» 


920 RETURN 

705 REM »*««•«««««*«»«« 


930 REM *«»««««««*««»«* 

««««* 


***«« 

708 HOME : VTAB 3: HTAB 


932 REM «ROTINA SIMPSON 

5: PRINT "ESCOLHA 0 MÉTODO 


1/3» 

DE RESOLUÇÃO" 


936 REM ***««««««****«* 

710 VTAB 5: HTAB 5: PRIN 


***«« 

T "ENTRE COM SUA OPCAO:" 


940 IMZ = LTZ - i:PRZ = L 

720 VTAB 8: HTAB 9: PRIN 


TZ - 2:SI = 0:SP = 0 

T "(1) FORMULA DOS RETANGU 


950 FOR K = 2 TO IMZ STE 

LOS" 


P 2 

730 VTAB 10: HTAB 9: PRI 


960 SI = SI + CY(K) 

NT "(2) FORMULA DOS TRAPEZ 


962 NEXT K 

IOS" 


970 FOR I = 3 TO PRZ STE 

740 VTAB 12: HTAB 9: PRI 


P 2 

NT "(3) FORMULA DE SIHPSON 


980 SP = SP + CY(I) 

1/3" 


982 NEXT I 

750 VTAB 15: INPUT "ENTR 


990 AD = (H / 3) * (CY(i) 

E COM 0 NUMERO DA OPCAO == 


+ CY(LTZ) + (4 » SI) + (2 

> ";MTZ 


* SP)) 

760 IF MTZ ( 4 AND HTZ > 


1000 RETURN 

0 THEN GOTO 800 


1010 REM »««*«*«****««* 

770 SOUND 100,100 TO 100 


««»««««« 

,100 


1012 REM «ROTINA ENTRAD 

780 PRINT " ": PRINT "** 


A A,B,N* 

«ERRO DE OPCAO»**" 


1014 REM «««*»««*«*«»*« 

790 GOTO 750 


*««*«««« 

800 RETURN 


1020 HOME : VTAB 3: HTAB 

810 REM »**«»»«»*»«**** 


5: PRINT "FORNEÇA 0 NUMER 

«*« 

812 REM «ROTINA RETANGU 


0 DE INTERVALOS" 
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1030 VTAB 6: INPUT "ENTR 

E NUHERO ==> ";N 


RE LIMITE INFERIOR ==> "-A 

1032 IF N < 401 AND N ) 


1070 VTAB 14: INPUT "ENT 

0 THEN GOTO 1040 

1034 SOUND 100,100 TO 10 


RE LIMITE SUPERIOR ==> ";B 

0,100 


1080 IF (B > A) THEN G0 

1036 VTAB 8: HTAB 2: PRI 


T0 1120 

NT "ERRO --> N=0 OU N>400" 


1090 SOUND 100,100 T0 10 

0,100 

1038 GOTO 1030 


1100 VTAB 16: HTAB 2: PR 

1040 DIM CY(402) 


INT "ERRO --> LIM.INF>=LIM 

1050 VTAB 10: HTAB 5: PR 


.SUP" 

INT "FORNEÇA 0S INTERVALOS 


1110 GOTO 1060 

DE INTEGRACA0" 


1120 IF TPZ = 1 THEN AUZ 

1060 VTAB 12: INPUT "ENT 


= N 


ÍÍ25 IF TPZ = 2 THEN AUZ 
= N + 1 

í127 H = (B - A) / AUZ 
1130 RETURN 

1999 REH «RETORNO AO PR 
OCESSO# 

2000 GOTO 420 


O autor é programador 
pleno da Rede 
Ferroviária Federal S.A. 


Explorando o Teclado do TK 2000 


Álvaro A.L.Domingues 


Use em seus programas, de forma inteligente, 
os caracteres gráficos especiais e os PEEKs de 
leitura do teclado de seu micro 


O teclado do TK-2000 possui, além dos números, letras e sím¬ 
bolos especiais, uma série de caracteres gráficos que podem ser 
usados para melhorar telas gráficas ou de textos, ajudando des¬ 
sa forma, na criação de jogos ou aplicativos e na simulação da 
função INKEY$ através do uso da função PEEK (39). Estes dois 
últimos recursos serão explicados a fundo, visando eliminar dú¬ 
vidas e mostrar outras possibilidades do TK 2000. 

Qual a tecla que foi pressionada? 

Dentre os recursos normais do TK-2000 existe a instrução GET, 
cuja função é esperar que o usuário digite uma tecla qualquer, 
que será armazenada posteriormente, numa variável alfanumé¬ 
rica. O processamento do programa nesta fase é então interrom¬ 
pido, continuando apenas após a digitação de alguma tecla (em 
certos programas como processadores de texto e jogos esta in¬ 
terrupção não é interessante, podendo até ser prejudicial para 
algumas funções). 

Alguns microcomputadores, como por exemplo o TK 90X, o 


TK-85 e o TRS-80, não possuem a instrução GET. Estas máqui¬ 
nas têm a função INKEY$ que efetua a leitura das teclas, à me¬ 
dida que vão sendo pressionadas, sem parar o processamento. 
Se, nenhuma tecla for apertada o micro passa para a instrução 
seguinte. 

A solução, para se simular o INKEY$, no caso do TK-2000, 
é utilizar-se do PEEK (39). Todavia, existe um problema: o códi¬ 
go obtido para cada tecla é diferente do código ASCII. O que o 
usuário pode fazer é utilizar o seguinte programa: 

10 PRINT PEEK (39) 

20 GOTO 10 

A partir dele poderá, digitando tecla por tecla, obter todos os 
códigos do teclado. 

Ao lado desta instrução está o PEEK (38), que fornece um va¬ 
lor diferente para determinados grupos de teclas, de acordo com 
a zona do teclado a que pertencem. Na tabela I apresentamos 
todos os códigos do PEEK (38) e do PEEK (39) e na figura 1 mos¬ 
tramos as zonas do teclado abrangidas pelo PEEK (38) 
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Tabela I - PEEK (38) e PEEK (39) 


CARACTERE PEEK(38) 

PEEK(39) 

NENHUN 

0 

48 

RETURN 

128 

42 

1 

8 

23 

2 

8 

22 

3 

8 

21 

4 

8 

20 

5 

8 

19 

6 

16 

25 

7 

16 

26 

8 

16 

27 

9 

16 

28 

0 

16 

29 

0 

4 

17 

U 

4 

16 

E 

4 

15 

R 

4 

14 

T 

4 

13 

Y 

32 

31 

U 

32 

32 

I 

32 

33 

0 

32 

34 

P 

32 

35 

A 

2 

11 

S 

2 

10 

D 

2 

9 

F 

2 

8 

G 

2 

7 

H 

64 

37 

J 

64 

38 

K 

64 

39 

L 

64 

40 

• 

8 

64 

41 

z 

1 

5 

X 

1 

4 

c 

1 

3 

V 

1 

2 

B 

1 

1 

N 

128 

43 

H 

128 

44 

9 

128 

45 

8 

128 

46 

? 

128 

47 

II 

8 

150 

D 

8 

149 

1 

8 

148 

1 

8 

147 

& 

16 

153 

F 

16 

154 

( 

16 

135 

) 

16 

156 



Uma vez que o número de cada tecla é diferente e eles não 
estão "jogados" ao acaso, é possível convertê-los para o código 
ASCII. Assim, poderemos desenvolver uma sub-rotina em BA¬ 
SIC ou Assembly que efetua a tradução. Os programas que mos¬ 
traremos a seguir fazem esta transformação. O primeiro deles 
(listagem 1) é em BASIC e o segundo é em Assembly (listagem 2). 


iO X = PEEK (39)sY = IN 
T (X / 64)sA = X 
20 IF Y > 0 THEN A = X - 
Y » 64 

30 CD = PEEK (62880 + A 
+ Y + 3 * (A - D) - 128 
40 IF CD ( 0 THEN CD = C 
D + 128 

50 PRINT CD: G0T0 10 


Listagem 1 - Programa em BASIC para leitura do teclado. 


Listagem 2 - Programa para leitura do teclado em Assembly. 


0300- 

20 43 F0 

JSR IF043 

0303- 

85 3A 

STA I3A 

0305- 

60 

RTS 

a) Assembly 

10 

CALL 768 


20 X = PEEK 

(58) - 128 

30 

IF X < 0 THEN X = X + 

128 


40 

PRINT X 


50 

G0T0 10 

b) BASIC (para teste). 
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Os caracteres especiais 

Uma das coisas que torna o TK 2000 diferente do Apple é a 
existência de uma série de caracteres gráficos especiais, que po¬ 
dem ser usados no modo texto. Isso possibilita a criação de uma 
variada gama de telas. Além disso, podemos misturar telas em 
alta e baixa-resolução com caracteres de texto, sem termos que 
abrir "janelas" como ocorre com o Apple. 

Estes caracteres são obtidos após digitar-se CONTROL-B, ou 
após um PRINT CHR$ (242), passando o teclado para o modo 
gráfico. Como podemos observar na figura 5, a grande maioria 
das teclas possui, além dos caracteres normais, um ou dois ca¬ 
racteres gráficos. Após ser dado um CONTROL-B digitamos si¬ 
multaneamente SHIFT+TECLA ou CONTROL+SHIFT+TECLA. Por 
exemplo, SHIFT-Q após um CONTROL-B, mostra o naipe espa¬ 
das na tela. Para voltarmos ao normal, devemos digitar novamente 
CONTROL-B. Podemos usar isso numa linha de programa, da se¬ 
guinte forma: 

a) digitando a instrução (PRINT ou LET A$=, por exemplo); 

b) abrindo aspas; 

c) digitando os caracteres que comporão a figura (letras, nú¬ 
meros, símbolos especiais ou caracteres gráficos); 

d) digitando CONTROL-B; 

e) fechando aspas. 

Observe a figura 2. Ela mostra o teclado com todos os símbo¬ 
los gráficos. O símbolo gráfico da esquerda de cada tecla é obti¬ 
do digitando-se SHIFT+TECLA. O símbolo gráfico da direita de 
cada tecla é obtido por CONTROL + SHIFT+TECLA. 

Entretanto o usuário pode sentir dificuldade em listar, em im¬ 
pressora, estes símbolos especiais, visto que seus códigos cor¬ 
respondem a outros caracteres da mesma. 

Para evitar esta dificuldade, mostramos na tabela II o que apa¬ 
rece numa listagem impressa quando usamos caracteres gráfi¬ 
cos especiais, com a indicação de como obtê-los. 

Mais detalhes sobre o uso do teclado podem ser obtidos no 
Manual de Operações do TK 2000, nas páginas de 22 a 27. 

Explorando mais o TK 2000 

Estas tabelas que publicamos permitem a você elaborar pro¬ 
gramas mais versáteis em seu TK 2000. O uso do teclado em 
todo o seu potencial,possibilita o desenvolvimento de sua criati¬ 
vidade, sobretudo na qriação de aplicativos gráficos e jogos, on¬ 
de a manipulação de telas por meio de teclas é fundamental e 
o uso de símbolos gráficos é inerente ao processo. 
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Tabela II - Como os caracteres 
impressora 

especiais aparecem na 

Código 

Impressora 

Teclado 

193 

rA 

SHIFT+CONTROL + 1 

194 

rB 

SHIFT+CONTROL + 2 

195 

rC 

SHIFT+CONTROL + 3 

196 

rD 

SHIFT+C0NTR0L + 4 

197 

rE 

SHIFT+CONTROL + 5 

198 

rF 

SHIFT+CONTROL + 6 

199 

rG 

SHIFT+CONTROL + 7 

200 

rH 

SHIFT+CONTROL + Q 

201 

rl 

SHIFT+CONTROL+W 

202 

rJ 

SHIFT+CONTROL + E 

203 

rK 

SHIFT+CONTROL + R 

204 

rL 

SHIFT+CONTROL+T 

205 

rM 

SHIFT+CONTROL+Y 

206 

rN 

SHIFT+CONTROL + U 

207 

rO 

SHIFT+CONTROL + I 

208 

rP 

SHIFT+CONTROL + G 

209 

rQ 

SHIFT+CONTROL + H 

210 

rR 

SHIFT+CONTROL + B 

211 

rS 

SHIFT+CONTROL + N 

212 

rT 

SHIFT+CONTROL + A 

213 

rU 

SHIFT+CONTROL + S 

214 

rV 

SHIFT+CONTROL+Z 

215 

rW 

SHIFT+CONTROL + X 

216 

rX 

SHIFT+CONTROL + D 

217 

rY 

SHIFT+CONTROL+F 

218 

rZ 

SHIFT+CONTROL+C 

219 

r[ 

SHIFT+CONTROL+V 

220 

r\ 

SHIFT+CONTROL+J 

221 

r] 

SHIFT+M 

222 

r A 

SHIFT+T 

223 

r- 

SHIFT+J 

224 

r' 

SHIFT+G 

225 

ra 

SHIFT+H 

226 

rb 

SHIFT+B 

227 

rc 

SHIFT+N 

228 

rd 

SHIFT+Q 

229 

re 

SHIFT+W 

230 

rf 

SHIFT+E 

231 

rg 

SHIFT+R 

232 

rh 

SHIFT+D 

233 

ri 

SHIFT+F 

234 

rj 

SHIFT+C 

235 

rk 

SHIFT+A 

236 

rl 

SHIFT+S 

237 

rm 

SHIFT+V 

238 

rn 

SHIFT+Z 

239 

ro 

SHIFT+X 

240 

rp 

SHIFT+U 

241 

rq 

SHIFT+Y 

242 

rr 

SHIFT+M 
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Tabuada 

Aprendendo a Tabuada com o 
micro TK 90X 


Atenção garotada do curso primário que tem tido dificuldades 
em decorar a tabuada. Este programa lhes ajudará a aprendê-la, 
ao mesmo tempo que lhes ensinará como mexer com o micro. 


Operando a tabuada 


Ao rodar o programa, o micro lhe perguntará qual tabuada se¬ 
rá usada. Em seguida, duas opções lhe serão apresentadas para 
que você escolha entre multiplicação e divisão, com operações 
de 1 a 12. 

Em ambas as operações, você terá que resolver dez cálculos 
distintos, escolhidos aleatoriamente. Se você conseguir resolver 
todos os cálculos sem cometer nenhum erro, ao final, o compu¬ 
tador lhe mostrará uma mensagem parabenizando-o. 

O programa oferece também, ao final, as opções de troca da 
tabuada ou repetição da existente. Durante a realização da ope¬ 
ração, se você entrar com o resultado errado, por duas vezes con¬ 
secutivas, o micro se encarregará de fazer a correção. 

No programa está definida a execução da tabuada do número 
12. Mas, você pode modificar, aumentando ou diminuindo este 
valor, apenas alterando as linhas 45 e 280 do programa Tabua¬ 
da (listagem 1). 

A função UDG é utilizada no programa, porém, apenas para 
definir o símbolo de divisão, como mostra a tabela 1. 

"Tabuada" despertará o interesse da moçada, que está inician¬ 
do a carreira escolar, estimulando-a a decorar via computador, 
ao mesmo tempo familiarizando-a com o novo companheiro na 
escola. 


Tabela 1. 


mm 


iftiUltii 


f I § I I i I I t 


l l 111II i 


rTTTTTTT] 


■ ■■lTjmi 


LLOJ l \ □ 


H BCD EFSHIdKL MN ü PQR 5T Ü 
fiBC + EFGKI d K L íi N ü P O R 5 T U 

D =-r 


Listagem 1 


B 

d ) 


i 

10 
20 
30 
" (E 
40 
45 
50 
50 
70 
0 U 


50 

90 

100 

110 

120 

130 

THEN 

140 

150 

160 

PT 


REM *•* ** 

G Ü 5 ü B 200 0 
CL 5 

PRINT “Escolha urna Tabuada - :- 
ntre do la 123 M 
INPUT b 

IF b>12 THEM GOTO 20 
PRINT ;b; 

PRINT 

PRINT !! UO CO qU£ f 

(Entro coi 


Fi ! 0 U 

INPUT . x $ 

PRINT ;x$; 

LET í=0 
LET q=0 

RRU5E 50: GOTO 150 

IF cont=0 


PRINT 
LET f = f+l 
PRU5E 100 
CL 5 

IF Q=10 RND 
,0:2; I-LP5H 1; 


f =10 THEN PRINT 



FLPSH 0: HR. 

T PT 15,2, “P rossiono““r““ para r 
epitir ou para mudar de ta 

bü ad 3“: GOT 0 190 
170 IF Q =10 RND f<>10 THEN PRIN 
T PT 10,2; FLASH i;“Uo co u Ltr a p a 
ssou 10 Operações"; FLPSH O; PRI 
NT PT 15 2; “Press i òne para 

repitir ou ■■ "t*'" para mudar de 
tab u a da": GOT 0 19 0 
130 GOTO 240 

190 IF INKEY$ = S “’ THEN GOTO 190 
200 LET q$ = INKEY$ 

210 IF q$=“t“ THEN GOTO 20 
220 IF q$ = iS r“ THEN GOTO 100 
230 Ir q$ <> 1 ' t'' PND q$ < > ‘* r THfcN 
GOTO 190 
240 CL5 

25 0 PRINT PT 20..10;! 
an: PRINT PT 21:10';! 

250 LET d =0 
270 LlT Cünt=0 
230 LET a=l+INT (RND+123 
290 LET h=a±b 

300 IF X $ = !! m !í THEN GOTO 320 

310 IF X$ = “d s ‘ THEN GOTO 410 

320 PRINT PT 0 : 0 ;a;"x“;b;“=? M 

330 LET c=h 

340 GOTO 900 

350 LET cont=cont+l 

360 ' cc;nt= - i hen - 

00: GOTO 140 


RINT 

PUSE 
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J370 I^X4=_ d " AND C0nt=2 THEN P- 

PAUSE 200: GOTO 140’ 

330 LET d=2 

390 p RiNT "Errad o. Te nte No v ame 
nte" ; PAUSE 100 
400 GOTO 1000 

410 PRINT AT 0.0; h fa ; " =?" 

420 LET C=a 
900 LET q=q+l 

1000 IF INKEY$<>"" THEN GOTO 100 
0 

10.10 IF INKEY$ = "" THEN GOTO 1010 
1020 LET k =UAL INKEY5 
1030 PRINT AT 1+d,0;fc 
1040 IF k = C THEN PAUSE 100: GOTO 
130 

1050 IF K. > c THEN GOTO 350 

1060 IF C =10 AND k <10 AND kOl T 

HEN GOTO 350 

1070 IF k < C AND c-10 <0 THEN GOTO 
350 

1090 IF INKEYS< THEN GOTO 10.9 

0 

1100 IF INKEY$ = ”** THEN GOTO 1100 


1110 LET l=UAL INKEY $ 

1120 LET k =k +10+L 
1130 PRINT AT l+d,0;k 
1140 IF k=C THEN PAUSE 100: GOTO 
130 

1150 IF x >C THEN GOTO 350 
1160 IF C —100 AND X <100 AND X> 10 
THEN GOTO 350 

1170 IF X <C AND C-100 < 0 THEN GOT 
O 350 


1180 

IF INKEY$ < >"" THEN 

GOTO 

118 

1190 

IF INKEY $ = :! " THEN 

GOTO 

1190 

1200 

LET 0 =UAL INKEY$ 



1210 

LET k = k *10+0 



1220 

PRINT AT 1+0.0;k 



1230 

IF k=C THEN PAUSE 

100 : 

GOTO 

130 

124-0 

IF k <>c THEN GOTO 

350 


2000 

FOR n=0 TO 7 



2010 

RE A D X 



2020 

POKE U5R “ + ' , +n .X 



2030 

NEXT n 



2040 

DATA 0,0,24,0.126, 

0 ,24 , 

0 

2050 

RETURN 




Reúna a turma para uma partida 
de Boliche com o TK 90X 

Que tal reunir a turma do sábado à noite para um jogo de 
boliche?... 

Há algum tempo atrás, o boliche não era muito difundido en¬ 
tre os brasileiros, mas essa imagem mudou e hoje em dia já exis¬ 
tem inúmeros adeptos desse esporte. 

Equipes foram formadas, e se criaram campeonatos que são 
disputados de uma forma séria, onde todos dão o máximo de 
sí para conseguir boas colocações. 

Antigamente, a contagem de pontos era feita de forma sim¬ 
ples, praticamente à mão. Hoje temos apenas o trabalho de pe¬ 
gar e lançar a bola e o computador se encarrega do resto. Cada 
pista de jogo possui uma tela onde os pontos são registrados, 
e o jogador tem diante de seus olhos todas as suas pontuações, 
jogada por jogada. 

Mas, se você não está a fim de sair com o pessoal não fique 
chateado, pois passamos todas as emoções deste jogo para o 
computador. Este programa,desenvolvido para o TK 90X, traz tu¬ 
do isto para dentro de sua casa, possibilitando uma grande dis¬ 
puta em sua família. 

O funcionamento do programa é bastante simples, sendo li¬ 
mitado o número de jogadores e, a definição dos gráficos "A" 
e "B" não trazem dificuldades ao usuário como mostra a tabela 1. 

Jogando Boliche no computador 

Antes de começar a digitar o programa,o usuário deve definir 
os gráficos "A" e "B", usando a UDG, que aparecerão nas linhas 
do programa como ilustra a tabela 2. Para introduzir as figuras 
nas linhas, onde estas estão programadas, você deve proceder 
da seguinte maneira: CAPS SHIFT + TECLA 9 (simultaneamen¬ 
te) e depois pressionar a tecla correspondente ao gráfico "A" ou 
"B". 


Tabela 1 


Linha 50 
Linha 60 
Linha 80 
Linha 200 
Linha 8020 
Linha 8030 


Gráfico b. 
Gráfico b. 
Gráfico b. 
Gráfico b. 
Gráfico a. 
Gráfico b. 
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A digitação do programa não oferece maiores dificuldades ao 
usuário porque, depois de alguns contatos com o equipamento, 
este dominará por completo o manuseio do teclado. 

Ao rodar o programa, a primeira tela a ser apresentada conte¬ 
rá as instru ções do jogo e uma breve explicação, para que o usuá¬ 
rio não se sinta perdido diante do equipamento. 

Na parte inferior do seu vídeo surgirá uma pergunta, indican¬ 
do o número de participantes e apresentando como valor míni¬ 
mo 1 e o máximo 4. Feita a escolha, surgirá a tela de jogo, apre¬ 
sentando na parte direita do vídeo, a pista de jogo com a bola 
e as garrafas. Do seu lado esquerdo, surgirão quantos jogadores 
estão participando e seus respectivos pontos. Na parte superior 
ao canto esquerdo da tela, o número apresentado significa quan¬ 
tas jogadas foram realizadas por participante. 

Para dar uma maior animação ao jogo, as cores da tela se alte¬ 
ram quando o jogador passa para o próximo participante. 

Para lançar a bola pressione a tecla "1" As teclas "5" e "8" 
servem para conduzir a bola para direita ou esquerda. 

Ao término da partida, a mensagem "FIM DE JOGO" é exibi¬ 
da junto com a pontuação final dos jogadores,perguntando a você 
se deseja jogar novamente. 


1 RE M 




PÜKE 

PÜKE 


3 DIM s(5) 

5 FQR f=0 TG 7: RERD 8 
USR "3" + í .a: NEXT f 

10 FOR f =0 TO 7: RERD 3 
USR b'' -F f : 3 : NEXT f 

15 LET X=20: LET K =19 
20 G0SU5 7500 
25 FOR q=i TO 10 
30 FOR p =1 TO pl 
32 RESTORE 9020 + p : RERD b C : ti 
ORDER b: PRPER C: CL5 
35 GOSUB 3010 
40 FOR t =1 TO 2 

50 FOR K =18 TO 25: RRINT RT X, 
K.B” : FOR f =1 TO 3: GOSUB 70: 
NEXT f: NEXT K 

50 FOR K =27 TO 19 5TEP -1: FOR 
f=l TO 3: GOSUB 70: NEXT f: PRI 
NT RT X,K;' : B !! : NEXT K: GOTO 50 
70 IF INKEY$ < > " 1 *' THEN RETURN 
50 FOR f=x TO 0 STEP -1: RRINT 
RT f , K ; "B" : IF f > =12 THEN RRINT 
RT f+1,19;" 

35 IF f =5 RND K=22 RND t=l AND 
RND<.5 THEN GOTO 200 
95 RRINT RT f+l i K-l;“ “: IF 
f >=12 THEN LET K =K - (INKEY $ = 11 5" 3 + 
(INKEY $ = " 8 "3 : IF K. =13 OR K =25 TH 
EN GOTO 110 : NEXT f 
100 FOR n=1 TO 4: NEXT n: NEXT 
f 

105 GOTO 130 _ 

120 RRINT RT 15,4; *00“: FOR d 
=1 TO 130: NEXT d: RRINT RT 15,4 

’130 NEXT t 
135 GOSUB 5000 
140 FOR d=i TO 130: NEXT d 
145 NEXT p 
150 NEXT q 


150 CL5 : FOR d =í 

: RRINT RT d-h5 = 5 ; 
; FLASH 0;d/2; 


n 


RRINT 


i; 


; FLASH 0;sCd/£ 

RT 1,10; FLASH 
FLASH 0 
170 INRUT 
8 $ 

IF 8 $ = !: S : ‘ OR 3 $ = “S‘ 


TO P t ±2 STEP_ 
FLR5H I; 

FLASH 1; 


n) " 
ISO 
N 

190 
200 
RT f 
1 , 22 ; 
ET £ 
5000 
5005 
5010 
5020 


NEXT d 


(£ / 

THEN RU 


STOP 

FOR r =5 TO 0 STEP -1: RRINT 
19.;" :! ; ;! B" ; *' " ; RT f + 

; " 11 : SOUND . 5 , í : NEXT f : L 

(p) =£ (p) -f30 : GOTO 140 
REM ±****±*±*±****++ 

LET £ (53 =0 
RESTORE 9010 
FOR U =1 TO 10: RERD a.b: 
i £ 153 =5 (53 + (RTTR (a . b) <90 3 • 

T u 

5025 Ir £(53=10 THEN 
b030 LbT £ (pi =s (p) íc 
5040 FOR u =2 TO p Ui 
NT RT u +5.10;£ fn /£i • 

L *U: NEXT u 
5050 RETURN 

7500 PRINT RT 3., 10; FLASH 1 
TRUUÜES " FLASH 0: PRINT RT ' 
i - a d a .j o g a d o r d i s p oe de 10 


LET £ (5) 

(5) 

STEP 2: 
SOUND 


LE 

NEX 

= 15 


PRI 
01, P 


" INS 
8,3; 
J 0 g a 


RT 10,3;"Se 
j 0 g a d 0 r e s c 
STRIKE(derr 


das . 

7510 PAUSE 50: PRINT 
0 . j 0 g a d 0 r 0 u u rft d 0 s 
onseguir Fazer ufíi 
ubar todas as garrafas numaso jo 
yada.! ganhara 30 pontos, ecada 
g a r r a f a d e r r u ba d a va lera lp 0 n 10 

7520 PRINT TflB 3;"Pressione "" 1 " 
para la n ca r a bo La . " ; TflB 3 ; *'0 

jogador pode controlar abola 
ia n c a d a uti 1 izandoas te c l a s 

••••5 e S. 

7530 PAUSE 4 . 0 : INPUT "Numero de 
Jogadores C1-4 )";p i: IF pl<l OR 
P l >4- THEN GOTO 7530 
CLS : RETURN 
REM *+***+********** 

RESTORE 9010: PLOT 150,15: 


? 54-0 
8000 
8010 

DRRU 0,150: PLOT 151,15: DRAW 
150: PLOT 224,15: DRAU 0,150: 
OT 225,15: DRRU 0,158 
8028 FOR f=l TO 18: RERD a.b: 
INT BRIGHT 1 RT 3 ,b;"fl": NEXT 
;RT x,K;"B" 

FLASH l;q; 
1*2 STEP 2 


0 , 

PL 

PR 

f 


8038 PRINT 

8048 PRINT RT 1,8; FLASH l;q; FL 
RSH 8 : FOR f=2 TO pl*2 STEP 2: P 
RINT RT f +5, 8 : " ; f /2 ; " " 

;S(f/2): NEXT f 
8850-RETURN 

9880 DATA BIN 08011088,BIN 88811 
080,BIN 08111180,BIN 08111188,BI 
N 00111108,3IN 00811000,BIN 8001 
1000,BIN 00000000 

9805 DfiTfi BIN 80000808,BIN 88111 
100,BIN 01111118,BIN 01111110,61 
N 01111110,BIN 0Í111110.BIN 8011 
1100,BIN 88800080 

9018 DfiTfi 2,20.2,22,2,24,2.26,3, 
21,3,23,3,25,4,22,4,24,5', 23 

9821 DflTR 2,6 

9822 DflTR 8 ,7 

9823 DATA 0', 6 

9824 DRTR 2,7 
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List...LList 


Simulando os comandos List/LList de seu TK 

90X 


Este utilitário permite ao usuário selecionar linhas de um de¬ 
terminado programa para impressão. O programa que será lista¬ 
do pode ser de sua autoria ou qualquer outro já existente. 
"List/LList" será uma boa ferramenta que terá muita utilidade 
em programas extensos, possibilitando ao usuário determinar por 
exemplo, o número de linhas que serão impressas (no caso do 
mesmo estar fazendo algum tipo de verificação). 

O utilitário permite ainda, que você escolha o espaço, entre 
as linhas, para impressão, onde na realidade este programa si¬ 
mula os comandos List/LList de seu TK 90X. 

Quais os procedimentos que 
o usuário deve seguir 

O usuário deve fazer um MERGE com o List/LList e o outro 
já existente ou carregá-lo antes de iniciar a digitação. 

Para rodar o programa você deve digitar: 

"RUN 9951". Ao rodá-lo, o equipamento pedirá a você para 
que entre com o número da primeira e da última linha. Em segui¬ 
da uma nova pergunta onde você deverá responder optando pe¬ 
la impressão em vídeo ou por impressora. Independentemente 
da opção escolhida, você pode obter uma listagem com espa¬ 
cejamento simples ou duplo, conforme ilustrações nos exemplos 
1 e 2. 

No caso do usuário optar pela impressão em vídeo, a listagem 


1 

FOR n =1 

TO 30 


2 

PRINT “ 

MICROHOBBY 1 

: . i« 11 . 

3 

NEXT n 



4 

GOTO 1 






.Exemplo 1 


1 

FOR rs =1 

TO 30 


2 

PRINT ” 
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.« .* 

3 

NEXT n 



4. 

GOTO 1 


Exemplo 2 


será apresentada de forma colorida. Os números que enumeram 
as linhas aparecerão em vermelho, e o BASIC em azul, mas se 
você não gostar das cores poderá modificá-las. Para isto basta¬ 
rá apenas modificar as linhas 9985 e 9987, que representam 
respectivamente, o número da linha e o que está em BASIC. 

Um detalhe ao qual o usuário deve ficar atento é ao que se 
refere ao seguinte tópico: 

"o número da primeira linha não pode ser igual ao da segun¬ 
da. Isto significa que o programa não imprimirá apenas uma li¬ 
nha, e sim no mínimo duas. 

Esta ferramenta, que simula dois comandos de uma só vez de 
seu TK 90X (List/LList), tem grande utilidade na hora de confe¬ 
rir ou corrigir uma listagem qualquer, porque este tipo de tarefa 
é sempre realizada por etapas, e é neste ponto que se ressalta 
a vantagem de se ter este utilitário. 


9951 INK 0: PRPER 7: BORDER 7: U 
LS 

9952 REM 

9953 INPUT "Pri me ira li nha a ser 
i m p r e s s a ? *’In i c i o 

9954- INPUT "Ultima linha a sê r i 
mpcessa?";Fim 

9955 IF IniCiO=Fim THEN PRINT "H 
linha inicial e a final d£v £m s 

er diferentes": CL5 GOTO 9952 

9956 LET pfOQ =23635: LET V8rS=23 
627 

9957 DEF FN a (X ) =256*PEEK ÍX + I3 + 
PEEK X 

9958 DEF FN b(XÍ=PEEK (X+13+256* 
PEEK X 

9959 LET P f o Q =FN a í p f 0 Q3 

9960 CLS : PRINT PT 10,10.1 FLP5H 


IP^u a-rá 


9961 LET va r s =FN a (vars) 

9962 REM Qual o endereço da linh 
a inicial 

9963 LET line3 d d =P f 0q 

9964 IF lineadd =V3 rs THEN CLS : 
PRINT "Linha" i Inicio ; "Na o e x i st e 
": STOP 

9965 LET linen0=FN b(Linea dd 3 

9966 LET linelen=FN a(lineadd+23 
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9967 IF iineno=lniCio THtN LtT s 
t iin = iinen o : let s t Une a d d = U n e a 
dd : LtI s-1L i n len = U ne len : GOTO 9 
971 

dybo LtT Une a d d = 11 n e a d d +4 +1 in e i 
en 

9969 GOTO 9964 

997S REM Ou a l o endereço da Unh 
a r i n a l 

9971 LtT Uneadd=Uneadd+4+Linel 
an 

9972 IF lineadd =V3 rs THEW CL5 : 
-’H INT "Linha" ; ri m ; " Na o e x i s -1 e " 
5TOP 

9973 LtT Une n o =FN b í l i n e a d d ) 

9974 LtT u n e 1 e n =FN a ( Une a d d +2) 

9975 IF Uneno=rim THEN LET endl 
. n = U n e n o : LEI endlineadd = Une a d 
i: LtT e n d U n 1 e n = u n e l e n: GOTO 9 
980 

9976 LtT line a dd = U n e ad d+4+linel 
»n 

9977 GOTO 9972 

9978 PRINT 

9979 REM Imprimir Linhas 


9980 INPUT "imp rimir lis t a g e m n a 
Tela o u n a im p r e s s o r a (t / i) ? 

; 

9981 CL5 

9982 LET dev=2: IF q $ = “I" OR q$ = 
"i" THEN LET dêV=3 

9983 REM Escolha Caracteres para 
Impressao 

9984 INPÜT "Tipo de Espacejament 
o? í 1 =s i fiiP lês ,2 =dup i o etc.) " ; sp 

9985 PRINT tt d e V; INK 2;FN b (S tli 

neadd) TRB 5; 

9986 FOR n=stUneadd+4 TO endlin 
e a d d +2 +e n d t i n l e n 

9987 PR INT ttdev ; INK 1; CHR$ PEEK 
n AND (PEEK n =13 OR PEEK n >31) , 

9988 IF PEEK n=14 THEN LET n=n+5 

9989 IF PEEK n =13 THEN FOR Z=2 I 
O SP: PRINT ttdev: NEXT Z: PRINT 
ttdev; INK 2; FN b(n+l).;TRB 5.;: Lt 
T n=h+4 

9990 NEXT n 

9991 PRINT ttdev 

9992 5T0P __ 

9999 5RUE "lliSt" LINE 9951 


Controle de 
Estoque no TK 90X 


Este aplicativo foi desenvolvido para ser usado por pequenas 
empresas que possuam um TK 90X e até 100 produtos diferen¬ 
tes em estoque. E fornece um resumo, com dados sobre esto¬ 
que mínimo necessário, estoque atual e quantidade a ser enco¬ 
mendada, permitindo também a gravação e impressão do arqui¬ 
vo gerado. Para edição do mesmo, cada registro é acessado pe¬ 
lo seu número e não por seu código. O registro pode ser altera¬ 
do ou deletado. Toda vez que este for alterado grave-o novamente. 
Quando for iniciá-lo utilize o comando GOTO 1000, nunca o co¬ 
mando RUN. Isso porque as matrizes dos valores, de cada regis¬ 
tro, estão dimensionadas no início do programa (não poderia ser 
de outra forma!). Se ele é reiniciado pelo comando RUN, todas 
as matrizes, contendo os dados introduzidos, serão redimencio- 
nadas, fazendo com que todos os valores sejam zerados. 

A lógica empregada neste programa é do tipo modular, ou se¬ 
ja, várias sub-rotinas gerenciadas por GOSUB. As linhas de de¬ 
cisão (Opções do MENU) estão também no início, após a rotina 
de formatação do MENU (linhas 1000 a 1090). 

Vale ressaltar um detalhe interessante de seu algorítimo. O nú¬ 
mero do código do produto (b$) é tratado como STRING e ar¬ 
mazenado numa matriz alfabética r$(100,12). Cada linha da ma¬ 
triz armazenará, um código de produto. Sendo assim, cada ele¬ 
mento será um caractere de cada um dos códigos. 

Este processo é feito com o comando no formato: LET r$ (a,1 
T012) = b$ que significa: "atribua cada caractere de b$ (de 1 a 
12 no máximo) a cada elemento da linha a". 

Por exemplo, digamos que você introduziu os códigos: 101010, 
202020, 303030. 

A matriz ficara na forma: 


r$— [a^ -1 a^— 0 a-o — 1 3^4 —0 ai 5 — 1 a^l 


r$ 


a 1,1 a 1,2 a 1,3 a 1,4 a 1,5 a 1,6 a 1,7 a 1,8 a 1,9 a 1,10 a 1,11 a 1,12 

101010101010 

a 2,1 a 2,2 a 2,3 a 2,4 a 2,5 a 2,6 a 2,7 a 2,8 a 2,9 a 2,10 a 2,11 a 2,12 
202020202020 

a 3,1 a 3,2 a 3,3 a 3,4 a 3,5 a 3,6 a 3,7 a 3,8 a 3,9 a 3,10 a 3,11 a 3,12 
303030303030 


Estaremos dessa forma, limitando o número de código a 12 
caracteres. É lógico que não é essa a vantagem. 

Para cada caractere numérico introduzido na memória, o com¬ 
putador reservará dois bytes. Mas, para cada caractere alfanu¬ 
mérico ele reservará apenas 1. Então, ao tratarmos um número 
como STRING, economizaremos inúmeros Bytes, pois da forma 
descrita, o campo código do produto ocupará 12 Bytes no 
máximo. 

Se esse procedimento não fosse tomado ocuparia sempre 24 
Bytes! 

Ao digitar o programa, para obtenção dos caracteres em por¬ 
tuguês, utilizaremos o recurso de redifinição de caracteres UDG, 
residente na ROM do TK 90X. Na utilização de todos os carac¬ 
teres em Português, maísculos e minúsculos devemos acessar 
UDG0 e logo após UDG1, como linha direta. 

Esta operação deve ser feita antes de iniciarmos a digitação. 
Quando gravado o programa é automaticamente verificado. 
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1 REM Controle de Estoque 

2 REM *******TK90X******* 

10 DIM r$(100.12): DIM «(100): 

DIM X í100) : DIM >4$ (100/9) 

20 LET 5 =0: LET i =2 

30 BORDER 0 : PAPER 0: INK 4-U 

” 40 GOSUB 9000 

1000 BORDER 0: PAPER 0: INK 4-: L 

LS 

1010 PRINT RT 4.4; "********* *MEN 

U**********" „_ 

1020 PRINT RT 6.4;“TECLR A-ALTER 

RR ARQUIVO" _ „ 

1030 PRINT RT 8,4;"TECLR D-DtLEI 

RR REGISTRO" _ 

1040 PRINT RT 10,4;"TECLR t-ENiR 

RR REGISTRO" _ 

1050 PRINT RT 12,4;"TECLR N-NIVE 

L DE ESTOQUE" 

1060 PRINT RT 14,4;"TECLR C-UHKK 
EGflR ARQUIVO" 

1070 PRINT RT 16,4;"TECLR S-ShLV 

pp flDfll 1 Tüü" 

1080 PRINT RT 18,4.;"********** * * 
************" 

1090 PRINT RT 21,8;"QUAL SUA URU 
RO ?": INPUT a$ 

1100 CL6 

1110 IF a$="e" THEN GOTO 3000 

1120 IF a$ = ’Ti” THEN GOTO 4000 

1130 IF a$="C" THEN GOTO 5000 

1140 IF a$="S" THEN GOTO 6000 

1150 IF ai="d" THEN GOTO 7000 

1160 IF a$="a" THEN GOTO 2000 

1170 GOTO 1090 

2000 LET 0=1: CLS 

2010 PRINT RT 21,0;"ENTRE 0 CODI 
GO fi SER RLTERRDO”: INPUT b 

2020 PRINT RT 21,0.;;; 

2030 LET 0=0+1: PRINT RT 0,3; "PR 
ODUTQ":RT 0,20;"NÍVEL": PRINi RT 
1,0; "No.";AT 1,6; "Código";RT 1, 

14 ; "Mi n . *fit u a l *En c a r g o " 

2040 FOR Z=1 TO â: IF Z=b THEN I 

NK 6: PRINT RT 21,0;z;TRB 3;r$(Z 
, 1 TO 12 3 ; TRB 16; w (z ) ; TRB 20; X (z 

3 ;TRB 23;y $(Z 3 

2050 NEXT Z 

2060 INPUT q: LET W íb) =W (bJ +9 

2070 PRINT RT o +1,0; b;TRB 3; r$(b 
,1 TO 12 3 ;TRB 16;w (b 3 ;TRB 20;X(b 

3;TRB 23;y $(b 3 

2080 PRINT INK 5;RT 21,0;"Tecla 
BREAK -p r 0 x í ífi o r £ a 3 =. t r n " 

2090 IF INKEY$="m“ THEN GOTO 100 

0 

2100 IF INKEYi< >“ " THEN SOUND . 

1,3: PRINT RT 21,S; INK 9; "Te C13 
BREflK-Pro x í mo re qis t r o": S0UND 
.1,2: GOTO 2080 

2110 GOTO 2010 

3000 PRINT RT 0,3;"PRODUTO";RT 0 
,20;"NÍVEL": PRINT RT 1,0;"No."; 

HT 1,6;"Código ";rt 1,14; "Min . *fit 
uai*Ehca rqo" 

3010 INPUT b$: SOUND .1,2: LET 3 
=a+l: LET r $ Ca ,1 TO 123 =b$ 

3020 INPUT b: SOUND .1,2: LET W ( 
a 3 = b: INPUT C: SOUND .1.1: LET X 
(a)=c: INPUT d $: SOUND .1,2: LET 
y $ í a 3 =d $ 

3030 PRINT RT i . 0;a;TAB 3;b$;TfiB 

14.; b; TRB 19 ; c ; TRB 25 ; d $ . PRINT 

RT 21,0; INK 4; "Te Clã ENTER-PrOX 


imo reqistro”: SOUND .5,0: PHiN! 

INK 4;RT 21 , 0 ;"Tecia ENitn-Prox 
i m a en t r ada “ SOU No , 5,1: In fu i 
ai: IF ai="m“ THEN GOTO 1000 

3035 IF âío"" THEN GOTO 3030 

304 0 PRINT INK 7;RT 21,0;" 

" : LET 

i=i+1: GOTO 3010 

4000 PRINT RT 0,3; "PRODU iü“;RI 0 
, 20 ; “NÍVEL" : PRINT RT 1,0; VNO , " 

RT 1,6; "Cód i 90 " .; RT 1,14; "Mi n . *Ht 
u a t ±En c a r 9 0 

4010 FOR Z=1 TO 3 IF f $(Z ,1 TU 

í 23 = - : !i THEN UU 

TO 4040 _ 

4020 PRINT Z :TRB 3; f $ÍZ ,1 iU 14 J 
; TRB 15; 10 (Z 3 ; TRB 20; X (Z 3 ; i Hb 4 4, 

>4 í CZ 3 : NEX I z 

4040 NEXT Z 

4050 PRINT INK 5:Ri 21,0;" 

TECLR M - MENU " : - 

F INKEYi= "ffi” THEN GOiU 1000 

406 0 IF IN K E Y i = " Z " ! H P N V U P Y 

4070 GOiO 4050 _ _ 

5000 PR INT RT 0,3 ; " FKOlMJ 1 U "íHi 0 
. 20 ; "NIVEL” : PR INT RT 1,0; NO . ” 3 

RT 1,6; " Có d i g o “.; RT 1,14; " M i n , *h t 
ual*Enc argo ” 

5010 FOR Z=1 TO 3 _ 

8020 IF W í Z 3 < X £Z 3 i HcN PHXNi Z , j_ 

RB 3; r i (z , 1 TO 12 3 ; thb 16; w >.z) ; 

RB 20; X (z) ; TRB 23; yi ÍZ) : Ntx í Z 
5030 NEXT Z 

5035 INPUT ui 

5040 GOTO 1000 

F, 0 0 0 C L S : P RI NT fi T 21,0; N 0 » e a 

0 fl rqUiV 0"; : INPUT 3i: SfiVP 3 a: 
p r INT RT 21, 0 ; “Té r tt i n o d e. g r a v •= y 
ã o . P r e s s i o n e u m a t e c l a p a r a v a i i 
fiCa Ç 3 0": INPUT t $: VPHiHY 3 a: P 

R INT RT 21,0.;" Ve ri f i c a do _ 

"• TNPUT tÍ: UUiU x 

000 

7000 CLS INPUT “Entre o numero 

d o r e qist r o a se r a 11 e r a do";P 

7010 FOR q=l TO 3: IF q=p 1 HEN G 
OTO 7030 

7020 NEXT q: PRINT RT 21,0; lNK 

5;“Co di 9 o " ; p;"Na o fi rquiv a d o 
" : INPUT aí: GOTO 1000 

7030 LET rí 19 3 = ri(a +13 : Lfcl_w(q) 

=W ia+13 : LET X í q) =X ja+13 : LET J $ 

\ q ) =q á l a 413 : PH INT Hl 41 f 0 - !%i5 '• _ 

6; “ Re q i s t r o dele t a d o . P r e s s i o n e l 

Nf ER ": INPUT 3$: tíOTU 

9000 PRINT INK 4; TRB 3; Fi_fioH_ x, 
"CONTROLE DE ESTOQUE"; FLHBH 0,■ 

RB 8; "*****************:**" = . .... 

9010 PRINT : PH INI INK N;Hu 

9020 PRINT : PRINi FAB 2.; i uda V 
ez que alterar os r§gis-tros,gia 
v e - o s n o v a m £ n t £ f . o p v •= o - o ! .=b * 4 z z 

0 s d a d o £ £ a o 9 f •= v a d o £ j u n «. •= r?« t ? i 
t£ c o si o programas " . . 

9030 PRINT TRB 2; "Quando USdf UITi 
proqraiíia com da -dos gr avados nau 
d i qit £ RUN . rn a5 GUT 0 10UU. 

9040 PRINT PT 2 l,- 0 ; "Pressione qu 
a 1 qü £ f t £ C 13 : IF INKtV $ - 1 n - 5 '^ 

GOTO 9040 

9050 RETURN __ 

9998 SP UB CTRL = BST 9 . " : tíU 1 U 4--^ 

qggg BORDER 7: PRPER 7: INK 0 Hl 
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POR DENTRO DO APPLE 


Investimento 

Pessoal 


Christiano Nasser 
e Wilson José Tucci 


Hoje em dia, em um País como o Brasil, 
onde existem altas taxas de inflação, 
torna-se muito importante uma correta 
aplicação do nosso dinheiro. Em muitas 
ocasiões precisamos até de especialistas 
para analisar os melhores investimentos. 

0 programa aqui apresentado tem a fi¬ 
nalidade de calcular algumas variáveis fi¬ 
nanceiras, a partir de valores conhecidos. 
Iremos usar as seguintes variáveis: 

C - Capital no início das contagens dos 
períodos de capitalização 
CF - Capital no final das contagens dos 
períodos de capitalização 
P - Número de períodos de capitalização 
J - Taxa de juros por período de 
capitalização 

I - Taxa de juros compostos em "P" pe¬ 
ríodos de capitalização 
K - Série uniforme de pagamentos 

Vejamos como funciona o programa 

"Investimento Pessoal" é dividido em 
sete blocos que oferecem sete opções de 
cálculo. 

No primeiro bloco o usuário pode calcu¬ 
lar o capital final, a partir das variáveis "C", 
"P" e "J". 


Exemplo : "Quanto teremos daqui a 12 
meses se aplicarmos, hoje, Cr$ 45 mil a 
9,8% ao mês?" 

0 resultado pode ser obtido usando-se 
a fórmula: CF=C*(1+J/100) A P. 

O segundo bloco calcula o capital inicial 
a partir de "CF", de "J" e de "P". 

Exemplo : "Quanto devemos pagar hoje 
para recebermos Cr$ 200 mil daqui a três 
anos, a juros de 214% ao ano? 

Para sabermos o resultado devemos 
usar a fórmula C=CF/(1 -hJ/100) A P. 

O terceiro bloco calcula o número de pe¬ 
ríodos a partir de "CF", de "C" e de "J". 
A fórmula neste caso é a seguinte: 

P = (LOG (CF/C)) / (LOG(1+J / 100)) 

O quarto bloco calcula o capital inicial 


a partir de "K", de "J" e de "P". 

Exemplo: "Uma pessoa quer um rendi¬ 
mento anual de Cr$ 200 mil nos próximos 
seis anos, sabendo que a taxa de juros é 
de 234% ao ano. Qual será o valor do in¬ 
vestimento?" 

Podemos então, utilizar a fórmula: 
C = K * (((J/100) / (1+J / 100) A (-P))) A (-1). 

O quinto bloco calcula a taxa de juros 
por período de capitalização a partir de "P" 
e de "I". A fórmula é a seguinte: 

J = ((1 + 1 / 100) A (l/P)-1) * 100 

O sexto bloco calcula a série uniforme 
de pagamentos a partir de "CF",de "J" e 
de "P". A fórmula usada é: 

K = CF * ((( 1 + J/I00) A N-1) / (J/100)) 
A (-1) 

O sétimo bloco calcula o número de pe¬ 
ríodos de capitalização a partir de "K", de 
"CF" e de "J". Usamos aí, a fórmula: 

P = (LOG((CF*J / (100*K)) + D) / LOG (1 
+ J / 100) 

Quando o programa for rodado, o micro 
lhe perguntará por um bloco. Você deverá 
escolher entre os sete blocos já citados, 
o que mais lhe interessa. 

Realizados todos os cálculos basta ago¬ 
ra o seu bom "faro" para realizar bons 
investimentos. 


ÍO HOME 

20 HTAB 12: PRINT "INVÉS 
TIHENTO PESSOAL" 

25 VTAB 5 

31 PRINT "CALCULAR VARIA 
VEIS": PRINT 

32 PRINT "Í-CAPITAL FINA 
L C,P J" 

33 PRINT "2-CAPITAL INIC 
IAL CF.J,P" 


34 PRINT "3-NUHER0/PERI0 
DOS CF,C,J" 

35 PRINT "4-CAPITAL INIC 
IAL K,J,P" 

36 PRINT "5-JUR0S/PERI0D 
0 P,I" 

37 PRINT "6-SERIE/PAGAME 
NTOS CF.J.P" 

38 PRINT "7-NUMERO/PERIO 
DO K,CF,J" 

3? PRINT : PRINT "FACA S 
UA OPCAO (í-7)"s GET B 
40 ON B GOTO 100.200.300 
.400,500,600,700 
100 REM ««BLOCO DO CALC 
ULO DO CAPITAL FINAL## 

110 HOHE 

115 HTAB 15: PRINT "CAPI 
TAL FINAL": PRINT 
120 INPUT "ENTRE 0 VALOR 
DO CAPITAL DE INICI0";C 
130 PRINT : INPUT "ENTRE 
0 VALOR DO NUMERO DE PER 
IODOS":P 

140 PRINT : INPUT "ENTRE 
0 VALOR DA TAXA DE JUROS 
/PER IODO";J 

150 REM ««CALCULO DO VA 
L0R*« 

160 CF = C * (1 + J / 100 
) A P 

170 REM ««RESULTADO## 
180 HOHE : VTAB 5: PRINT 
"0 VALOR DO CAPITAL FINA 
L E'~>";CF 
190 GOTO 1000 
200 REM ««BLOCO DO CALC 
ULO DO CAPITAL INICIAL*» 
210 HOME : HTAB 15: PRIN 
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T "CAPITAL INICIAL" 


420 INPUT "ENTRE 0 VALOR 


NT 

220 PRINT : INPUT "ENTRE 


DA SERIE/P AGAMENTOS";K: 


640 INPUT "ENTRE 0.VALOR 

0 VALOR DO CAPITAL FINAL 


PRINT 


DO NUMERO DE PERIODOS":P 

":CF 


430 INPUT "ENTRE 0 VALOR 



225 PRINT : INPUT "ENTRE 


DA TAXA DE JUROS/PER IODO 


650 HOME 

0 VALOR DA TAXA DE JUROS 


S":J: PRINT 


660 REM ««CALCULO DO VA 

":J 


440 INPUT "ENTRE 0 VALOR 


LOR*» 

230 PRINT : INPUT "ENTRE 


DO NUMERO/PERIODOS";P 


670 K = CF * (((1 + J / 1 

0 VALOR DO NUHERO DE PER 


445 HOME 


00) * P - 1) / (J / 100)) 

IODOS"sP 


450 REM ««CALCULO DO VA 


* ( - 1) 

240 HONE 


LOR«* 


680 VTAB 5: PRINT "0 VAL 

250 REN ««CALCULO DO VA 


460 C = K * <((J / 100) / 


OR DA SERIE E’--)";K 

L0R«« 


(1 + J / 100) A ( - P)>) 


690 GOTO 1000 

260 C = CF / (i + J / 100 


* ( - 1) 


700 REM ««BLOCO 8UE CAL 

) A P 


470 VTAB 5: PRINT "0 VAL 


CULA 0 NUMERO DEPERIODOS 

270 VTAB 5: PRINT "0 VAL 


OR DO CAPITAL INICIAL E'- 


DE CAPITALIZACAO** 

OR DO CAPITAL INICIAL E'- 


->":C 



->":C 


480 GOTO 1000 



280 GOTO ÍOOO 


500 REM ««CALCULO DO VA 



300 REM ««BLOCO DO CALC 


LOR DA TAXA DE JUROS/PERI 



ULO DO NUMERO DEPERIODOS» 


ODO*# 



« 


510 HOME : HTAB 13: PRIN 


710 HOME : HTAB 14: PRIN 

310 HOME : HTAB 15: PRIN 


T "JUROS/PERIODO": PRINT 


T "PERÍODOS": PRINT 

T "NUMERO/PERIODOS"":PRIN 




720 INPUT "ENTRE 0 VALOR 

T 


520 INPUT "ENTRE 0 VALOR 


DA SERIE DE PAGAMENTOS"; 

320 INPUT "ENTRE 0 VALOR 


DO NUMERO/PERIODOS";P: P 


K: PRINT 

DO CAPITAL FINAL";CF: PR 


RINT 


730 INPUT "ENTRE 0 VALOR 

INT 


530 INPUT "ENTRE A TAXA 


DO CAPITAL FINAL":CF: PR 

330 INPUT "ENTRE 0 VALOR 


DE JUROS COMPOSTOS";I 


INT 

DO CAPITAL INICIAL";C: P 


540 HOME 


740 INPUT "ENTRE 0 VALOR 

RINT 


550 REM ««CALCULO DO VA 


DA TAXA DE JUROS";J 

340 INPUT "ENTRE 0 VALOR 


LOR»» 


750 HOME 

DA TAXA DE JUROS/PER IODO 


560 J = ((1 + I / 100) A 


760 REM ««CALCULO DO VA 

"?J 


(1 / P) - 1) » 100 


LOR** 

350 HOME 


570 VTAB 5: PRINT "0 VAL 


770 P = ( LOG ((CF » J / 

360 REM ««CALCULO DO VA 


OR DA TAXA DE JUROS E'--> 


(100 * K» + 1)) / LOG ( 

LOR«* 


":J 


1 + J / 100) 

370 P = ( LOG (CF / O) / 


600 REM ««BLOCO DO CALC 


780 VTAB 5: PRINT "0 NUM 

( LOG (1 + J / 100)) 


ULO DA SERIE UNIFORME DE 


ERO DE PERÍODOS E'-->":P 

380 VTAB 5: PRINT "0 VAL 


PAGAMENTOS*» 



OR DO NUMERO/PER IODOS E'- 


610 HOME : HTAB 12: PRIN 


1000 REM ««FINAL DO PRO 

-)";P 


T "SERIE/PAGAMENTOS": PRI 


GRAMA»» 

390 GOTO 1000 


NT 


1010 VTAB 10: PRINT "DES 

400 REM ««BLOCO DO CALC 


620 INPUT "ENTRE 0 VALOR 


EJA OUTRO CALCULO(S/N)": 

ULO DO CAPITAL INICIAL»» 


DO CAPITAL FINAL"-CF: PR 


GET Bi 

410 HOME : HTAB 15: PRIN 


INT 


1020 IF Bi = "S" THEN R 

T "CAPITAL INICIAL": PRIN 


630 INPUT "ENTRE 0 VALOR 


UN 

T 


DA TAXA DE JUROS";J: PRI 


1030 HOME : END 





- 
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Gráficos no TK 
90X 

GRÁFICOS 

NO 


TK90X 



Victor Mirshawka 
Editora Nobel 

A elaboração de gráficos por computa¬ 
dor é algo que interessa a todos, quer pa¬ 
ra hobby quer para uso profissional. 

Criar uma tela interessante para um jo¬ 
go, traçar o gráfico de uma função e até 
um rápido desenho animado podem ser 
conseguidos por aquele que dominam as 
técnicas do uso de gráficos no 
computador. 

0 TK 90X é um micro computador bas¬ 
tante versátil no que diz respeito a gráfi¬ 
cos e utilizá-los é o que ambicionam a 
maioria de seus usuários. 

Para introduzí-los a este vasto universo, 
a editora Nobel está lançando o livro Grá¬ 
ficos no TK 90X, de autoria do professor 
Vitor Mirshawka. 

0 texto é leve, ideal para um livro intro¬ 
dutório. Os programas são interessantes 
e de fácil digitação, e bastante detalhados 
por comentários ao longo de sua listagem. 

Os efeitos gráficos conseguidos são bo¬ 
nitos, mas o livro não se prende apenas na 
estética. Apresenta ao leitor como fazer 
gráficos de funções, histogramas, distri¬ 
buições estatísticas, preocupando-se mais 
com a forma de como obtê-los do que com 
uma explicação detalhada da teoria envol¬ 
vida. Mas afinal, é isso que o leitor espera 
de um livro introdutário: prática acima de 
tudo. 

Gostaríamos contudo de fazer uma res¬ 
salva, não ao texto propriamente, mas à 
sua apresentação: o visual interno é bas¬ 
tante fraco, composição tipográfica pobre 
(o texto parece uma cópia de uma datilo¬ 
grafia feita às pessoas), ilustrações ama¬ 
dorísticas, "listagens" datilografadas... 
A.A.L.D 


BASIC Básico uma introdução à 

a 

programação 

Mais um livro introdutório de BASIC. 
Bem escrito, didático, mas apenas mais 
um. 

Destinado a principiantes e sem se fixar 
em nenhuma máquina, o livro aborda pas¬ 
sa a passo, como se fosse um curso, to¬ 
dos os principais conceitos de programa¬ 
ção e da linguagem BASIC. O texto é leve, 
didático e é uma boa opção entre os tex¬ 
tos introdutórios que pululam no merca¬ 
do, porém não traz novas abordagens so¬ 
bre o tema. 

A informática é o assunto do momento 
e suscita uma visualização deque o tema 
é importante e que vale a pena lançar no¬ 
vos livros sobre o assunto. Certamente va¬ 
le. Mas deve escolher-se o tema certo, o 
assunto que o leitor está precisando no 
momento. Principiantes sempre haverá. 
Novas abordagens também. Porém, é pre¬ 
ciso estar atento. A.A.L.D. 


Informática Micro Revelações 

a 


Donald A. Monro 
Editora: Manole 

■■■■■ 

■■■■■ 

■■■■■ 

■■■■■ 

BASIC 

básico 

UMA t**rfKXXJÇ*0 A PROGRAMAÇÀG 
DONALD A MONRO 

EDTTDRA 

lAT) MANOLE 
KZS LTDA 


Eduardo O.C.Chaves 

Editora: Cartgraf/edição conjunta com 

a People Computação 



Micro . 
Revelações 



0 primeiro volume da série "Domine o 
Computador" traz aos usuários de micros 
pessoais toda uma gama de informações 
acerca das principais questões que envol¬ 
vem seu uso. 

A principal caraterística do livro é a es¬ 
colha rigorosa dos diversos textos apre¬ 
sentados, que falam de todos os aspectos 
introdutórios da informática. 


"Micro Revelações" traz para o leitor as 
implicações da informatização da socieda¬ 
de e em que setores ela está sendo mais 
utilizada; o histórico do desenvolvimento 
da tecnologia, falando sobre o advento do 
chip, e da formação do vale do Sílicio até 
o aparecimento dos grandes fabricantes 
de micros como a Apple Computer. 

Na sequência, os autores vão abordan¬ 
do os conceitos básicos da computação 
(dados alfanuméricos, numéricos, etc.); 
dos diversos hardware e suas diferentes 
configurações e capacidades; periféricos, 
aplicações e extensões de hardware como 
por exemplo a formação de redes de com¬ 
putadores, assim por diante. 

A parte final, os autores dedicaram à in¬ 
trodução das técnicas iniciais de progra¬ 
mação, explicando as etapas deste proces¬ 
so, desde a identificação e definição do 
problema, desenvolvimento da solução ló¬ 
gica à documentação. 

De todo o conteúdo do livro, (muito bem 
estruturado) é importante destacar o cui¬ 
dado com que foi editado. 

Desde o texto, muito bem escrito de for¬ 
ma clara e precisa, até a apresentação vi¬ 
sual, "Domine o computador" merece um 
destaque especial pela atenção com que 
foi criado. Esperamos que os demais vo¬ 
lumes da série não percam a qualidade 
apresentada no primeiro. A.L.A. 
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LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS 


Projetos de 

computadores 

digitais 


Glen Langdon Jr 
Editora Cartgraf/Scopus 



PROJETO DE 

C0®(ffOTfíD0®ES 






Álvaro A.L. Domingues 


Iniciando a Série Tecnologia, com a co¬ 
laboração da Scopus, a Cartgraf está lan¬ 
çando Projeto de Computadores, de auto¬ 
ria do Dr. Glen Langdon Jr. 

Projeto de Computadores, destinado 
tanto a profissionais que querem se atua¬ 
lizar em novas técnicas ou ter uma boa 
fonte de consultas, como para estudantes 
de graduação de um curso de engenharia 
ou de ciências de computação<, é um tra¬ 
balho oportuno para um país que quer in¬ 
dependência tecnológica, pois a indepen¬ 
dência está no projeto e não na montagem 
ou cópia de um modelo já pronto. 

O livro integra conceitos de organização 
de dados em computadores aos métodos 
práticos do projeto digital propriamente di¬ 
to. Esta maneira de abordar facilita a com¬ 
preensão do estudante , mostrando a ele 


a importância dos conceitos em relação ao 
projeto global e a cada uma de suas par¬ 
tes , bem como estes conceitos funcionam 
a nível prático. 

O objetivo do livro é ensinar o projeto 
de um sistema digital não trivial , ou seja, 
indo além dos circuitos básicos combina- 
cionais e sequenciais. 

Um livro neste estilo poderia fácilmen¬ 
te ficar obsoleto, dado o rápido avanço da 
tecnologia eletrônica no que se refere à mi- 
croinformática e à criação de novos chips. 

Entretanto, mesmo com o advento de 
novas tecnologias, Projetos de Computa¬ 
dores, dificilmente, ficará obsoleto. Isso 
devido à filosofia de ensino empregado: 
ensinar a pensar e a projetar a nível de uni¬ 
dades funcionais independentes da tecno¬ 
logia e não como um projeto de flipflops 
e portas lógicas interligadas. 

Isso é conseguido com o uso do concei¬ 
to de microoperação: todos os fenômemos 
internos do computador são estudados co¬ 
mo compostos de microoperações que são 


executadas simultâneamente ou sequen¬ 
cialmente. Este conceito, surgido há apro¬ 
ximadamente 30 anos, sobrevive até ho¬ 
je, tendo se adequado bem diversas tec¬ 
nologias. 

Esta sequencia de microoperações pre¬ 
cisa ser sincronizada por um clock. Basi¬ 
camente são considerados dois tipos de 
clock: de uma fase ou de duas fases. Ou¬ 
tros tipos de clock podem ser encarados 
como variações destes dois. 

Estes três elementos: fluxo de dados, 
microoperações e temporização fazem a 
linha mestra do livro, em cima das quais 
o autor vai construindo metodologia de 
trabalho. 

O texto é adequado ao nível, sem ser 
maçante nem prolixo. A leitura flui devido 
principalmente à linguagem, mas a diagra- 
mação leve contribui bastante para que o 
leitor não se canse, embora trate-se de um 
assunto complexo. 

Ao longo de seis capítulos e quatro 
apêndices, o autor expõe toda a teoria bá¬ 
sica necessária para o desenvolvimento de 
projetos. Para auxiliar o estudante, cada 
capítulo é provido de uma série de exercí¬ 
cios que lhe permitem praticar em casa os 
conceitos visto em sala de aula. Uma re¬ 
ferência bibiográfica ajuda aqueles que de¬ 
sejam aprofundar-se no assunto de cada 
capítulo. 

Para ajudar o profissional que usa o li¬ 
vro como fonte de referência, um indice 
remissivo permite alcançar-se rapidamente 
qualquer assunto desenvolvido no livro. 

Finalizando, um glossário esclarece a 
terminologia utilizada. 

Um livro como o de Langdon Jr. vem 
preencher uma lacuna importante no mer¬ 
cado editorial de eletrônica, neste momen¬ 
to importante de capacitação tecnológica 
que vive o país. 
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O conceito 
de derivada 


Álvaro A.L. Domingues 


Apresentamos nesta edição uma abordagem intuitiva da 
derivada, mostrando de uma forma suave os novos 
conceitos com os quais o estudante se deparará no 
primeiro ano de uma faculdade de Ciências Exatas. 


Para o estudante 

Se você optou por qualquer curso na 
área de Exatas, a primeira coisa que irá ver 
na sua frente é um conceito completamen¬ 
te novo para a maioria dos estudantes: as 
derivadas e integrais. 

Embora isto não seja muito difícil, trata- 
se de uma nova forma de interpretar ve¬ 
lhos conceitos. E qualquer mudança em 
nossa maneira de ver encontra resistência 
e é visto como algo intransponível. 

Pretendemos mostrar, neste artigo, o 
que cada coisa significa e permitir a você 
uma aproximação menos dolorosa com es¬ 
tas novas idéias. 


Aquiles e a tartaruga 

Uma das questões filosóficas que gera¬ 
va muitas discussões entre os gregos an¬ 
tigos era a da possibilidade ou não, do mo¬ 
vimento. Um filósofo desta época, Zenão 
de Heléia, negava enfaticamente o movi¬ 
mento e provava, por meio de um artifício 
engenhoso, que não havia movimento. 

"Suponhamos", dizia ele, "que Aquiles 
aposte corrida com uma tartaruga. Por ser 
Aquiles, muitíssimo mais ágil que a tarta¬ 
ruga, é justo que ele dê uma vantagem à 
ela".(figura 1) 

"Ora, para alcançá-la. Aquiles deverá 
passar pelo ponto A, que está na metade 


do caminho entre ele e a tartaruga." 

"Por outro lado, o corredor deverá ain¬ 
da passar pelo ponto B, que está na me¬ 
tade do caminho, entre ele e o ponto A. 
Para atingir o ponto B, deverá passar por 
C, que está na metade do caminho entre 
ele e o ponto B. E assim sucessivamente". 

"Como vocês podem ver. Aquiles deve¬ 
rá percorrer infinitos pontos e jamais alcan¬ 
çará a tartaruga." 

"Portanto, o movimento não existe," 
concluiu. 

Certamente, Zenão de Heléia não nega¬ 
va a evidência de que podíamos nos mo¬ 
ver, mas lançou um argumento que era di¬ 
fícil de ser refutado. 

Aparentemente, tratava-se de uma brin¬ 
cadeira ou do simples prazer de provocar 
discussões, mas isto é o embrião do Cál¬ 
culo Diferencial e Integral. 


Muitos séculos depois... 

Ignorando o que disse Zenão de Heléia, 
imagine que você está dirigindo velozmen¬ 
te um automóvel. Sua velocidade varia ao 
longo do percurso, chegando a zero, (quan¬ 
do você atinge finalmente seu destino) 
desmentindo, na prática, os argumentos 
do filósofo grego. 

Podemos medir então, quantos quilôme¬ 
tros você percorreu após um determina¬ 
do período de tempo. 

Suponha que você percorreu 240 qui¬ 
lômetros em três horas, chegando duran¬ 
te este tempo, ao seu destino. Vamos fa¬ 
zer o mesmo que Zenão fez com o trajeto 
de Aquiles: dividir seu trajeto em diversas 
partes, só que de forma regular (figura 2). 

Coloquemos os marcos de 10 em 10 
quilômetros. Mediremos então, o tempo 
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FI6.1-A corrida entre Aquiles e a tartaruga. 


50 MICROHOBBY 












DIDATICA 


I I 

i 

i 

i 

1 

i 


i 

1 K /\ / 


f 1 

0 Km 10 

1 

20 

1 

30 

1 

40 

1 

50 

1 

60 

1 

70 

1 

80 

1 - w 

90 

1 1 1 

220 230 240 

Km 


gumentação do filósofo grego). Se pudés¬ 
semos atingir o infinito, a menor distância 
possível seria infinitamente pequena e se 
chamaria infinitesimal. 

Os limites 


O trajeto do automóvel dividido em trechos regulares 


Figura 2 - 

gasto pelo automóvel para ultrapassar ca¬ 
da um dos marcos, tendo como ponto de 
análise um gráfico do espaço, em função 
do tempo. 

Podemos ir diminuindo os intervalos pa¬ 
ra melhorar a precisão do gráfico, até que 
seja impossível medir o tempo a ser gas¬ 


to pelo automóvel, quando ele tiver percor¬ 
rido o trecho considerado (por exemplo, 
quando o cronômetro não mais puder ser 
acionado). Poderemos, a partir daí, cons¬ 
truir um gráfico como o da figura 3. 

Teoricamente, esta medida pode ser di¬ 
minuída infinitamente, pois entre dois pon¬ 
tos sempre existirá infinitos (era esta a ar- 



FIG. 3 - Gráfico do eepoço percorrido em funçdo do tempo. 


e(t) 



F1G.4 - Gráfico "furado” em Uq^q). 


Este primeiro conceito é importantíssi¬ 
mo para o entendimento do conceito de 
derivada. Mas, antes de prosseguirmos, 
convém falarmos sobre limites. 

Examine novamente o gráfico da figura 
3. Suponha que foi tirado exatamente um 
ponto deste gráfico (figura 4). A função fi¬ 
cou "furada", no ponto de coordenadas t 0 
e 0 . 

Vamos agora calcular os valores da fun¬ 
ção,desde o instante zero, aproximando- 
nos cada vez mais do instante íq sem, no 
entanto, atingí-lo, visto que a função está 
"furada". 

O instante está situado entre dois pon¬ 
tos vizinhos, to + ôet 0 -ôet-ôeo va¬ 
lor e 0 está entre e + e e - ô, é proporcio¬ 
nal a ô, respectivamente. 

Podemos construir em volta do "bura¬ 
co" uma caixa que o contenha e seja limi¬ 
tada da forma como mostramos na figura 
5. Se esta caixa for encolhendo de tal ma¬ 
neira que A se aproxime de zero, e se apro¬ 
ximará de zero, t se aproximará de t eo, fi¬ 
nalmente e aproximará de e 0 . Podemos 
dizer então, que o limite da função espa¬ 
ço percorrido quando tende (aproxima de) 
t 0 e aproxima-se do valor eo- Indicamos 
isso por: 


lim e (t) = e 0 
t-t 0 


Pode parecer besteira usar todo este ar¬ 
tifício para calcular o valor de um ponto 
de uma função, mas veja na figura 6 al¬ 
guns casos em que isto não é tão simples 
assim. 


A derivada 

Tomemos o exemplo do automóvel no¬ 
vamente. Você deve estar lembrado do 
conceito de velocidade média: espaço per¬ 
corrido, dividido pelo tempo gasto. No nos¬ 
so caso, a velocidade média vale: 


v = e/t = 240/3 = 80 km/hora 
m 


Podemos calcular a velocidade média 
entre dois pontos A e B, cujos tempos são 
tomados entre t A e t B . A velocidade mé¬ 
dia entre eles é: 


V AB 


e B ~ e A 
X B - tA 
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Isso equivale ao cálculo da inclinação da 
reta que une os dois pontos A e B (figura 
7). 

Sabemos também que existe uma velo¬ 
cidade instantânea, (aquela que é medida 
pelo velocímetro do carro) por exemplo t 0 
(figura 8). Podemos ir escolhendo pontos 
A e B cada vez mais próximos, até que A 
e B estejam tão próximos que A seja pra¬ 
ticamente igual a B. Podemos definir en¬ 
tão, velocidade instantanêa como: 


v(t 0 ) = lim 

tB-tA 


e(B) - e(A) 
e(B) - t(A) 


Generalizando: 


v(t) = lim 

At->0 


Ae 

At 


A significa diferença 



Podemos então calcular em cada instan¬ 
te, a velocidade do automóvel obtendo o 
gráfico da figura 9. A velocidade instan¬ 
tânea será o valor da inclinação da reta 
tangente à curva, no instante considerado. 

Você acabou de obter a derivada da fun¬ 
ção e (t)l 


A taxa de variação 

Toda esta conceituação foi estabeleci¬ 
da para entendermos certos fenômenos fí¬ 
sicos, onde não interessa a função propria¬ 
mente dita, mas a sua taxa de variação. 

Por exemplo, a velocidade é a medida da 
variação do espaço percorrido em função 
do tempo. Por outro lado, a aceleração é 
a variação da velocidade em função do 
tempo. 

Alguns fatos merecem uma considera¬ 
ção especial. Em primeiro lugar a sua de¬ 
finição formal: 


f(x) = lim 

Ax-0 


Af(x) 

Ax 


f(x) = derivada da função f(x) 


Geralmente, os valores envolvidos nes¬ 
ta expressão, quando o limite é atingido, 
formam uma divisão de zero por zero, mas 
o valor do limite é diferente de zero. Na de¬ 
rivada é que se verifica a utilidade da teo¬ 
ria dos limites, visto que sempre trabalha- 
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remos com condições que,na álgebra nor¬ 
mal, seriam impossíveis de serem 
resolvidos. 

A importância da derivada e de sua fun¬ 
ção inversa, a integral. Ela é sentida quan¬ 
do trabalhamos com fenômenos físicos 
contínuos no tempo como é o caso dos 
movimentos dos corpos, onde devemos 
conhecer a sua taxa de variação. Um dos 
criadores da teoria das derivadas foi New- 
ton quando estudava as leis do movimen¬ 
to, percorrendo um caminho semelhante 
ao nosso, ou seja, analisando o que acon¬ 
tecia com determinadas funções quando 
o intervalo entre duas medidas sucessivas 
era muito pequeno. De quebra, desmon¬ 
tou o argumento de Zenão de Helena. 

Para o professor 

O programa que apresentamos nesta 
edição é do tipo mais simples que pode ser 
desenvolvido em educação: o programa 
demonstrativo. 

De um modo geral, podemos dividir os 
programas educacionais em três tipos 
básicos: 

a) demonstrativos; 

b) iterativos de pergunta e resposta; 

c) iterativos completos. 

Um programa demonstrativo apenas 
mostra ao estudante um determinado as¬ 
sunto, sem que ele tenha participação ati¬ 
va, ou restrita no mesmo. 

Um programa interativo de perguntas e 
respostas permite uma participação maior 
do estudante, visto que ele deve respon¬ 
der a determinadas perguntas apresenta¬ 
das pelo micro e corrigidas posteriormen¬ 
te, fornecendo um "feed-back" imediato 
ao aluno. 

Programas iterativos completos simulam 
determinada situação hipotéticas que o es¬ 
tudante deve solucionar. Um exemplo dis¬ 
so é os simulador de vôo que permite um 
treinamento, em terra, dos pilotos. 

A estrutura dos programas demonstra¬ 
tivos são muito simples, porque a única 
preocupação do usuário deve ser escolher 
os textos e figuras que deverão ser apre¬ 
sentados; escolher o tempo que estes de¬ 
vem ficar expostos no vídeo e estabelecer 
uma sequência. Ao contrário dos progra¬ 
mas iterativos, a estrutura é linear e a úni¬ 
ca preocupação é com a disposição na 
tela. 

O programa que apresentamos foi de¬ 
senvolvido para o TK-2000, mas poderá 
ser adaptado a outros computadores sem 
muitos problemas. 

Observação: Iteratico = processo de re¬ 
solução de equação mediante sequência 
de operações em que o objeto de cada 
uma é o resultado da que a precede. 





FI6.9- A velockkjòa do outomóvol. 
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10 REM PROGRAMA PARA D 

EMONSTRACAO 

20 HOME 

30 PRINT " ESTE PROGRAMA 
E' DO TIPO DEMONSTRATIVO. 

// 

40 PRINT " ELE IRA APRES 
ENTAR UM ASSUNTO," 

50 PRINT " TOPICO POR TO 
PICO, COMO NUM LIVRO" 

60 GOSUB 9000 
70 PRINT " 0 ASSUNTO ESC 
OLHIDO E':" 

75 FOR I = 1 TO 400: NEX 
T 

80 HTAB (10): VTAB (10): 
PRINT " A DERIVADA" 

85 FOR I = 1 TO 500: NEX 
T 

90 GOSUB 9000 
95 HTAB (1): VTAB (10) 

100 PRINT " 0 ASSUNTO EM 
GERAL E'VISTO NO PRIMEIRO 
SEHESTRE DE UM CURSO DE 
CALCULO DIFE- RENCIAL E I 
NTEGRAL, DE UM CURSO UNI VE 

RSITARIO DA AREA DE EXATAS 

// 

110 GOSUB 9000 
120 PRINT " IMAGINE UMA 
FUNCAO,": HTAB (10): VTAB 
(10): PRINT "Y=X A 2": PRINT 
: PRINT "CUJO GRAFICO TRA 
CAREHOS": GOSUB 9000 
130 GOSUB 8000 
150 PRINT "VAMOS ESCOLHE 
R UM VALOR QUALQUER DE X" 
160 FOR I = 1 TO 400: NE 
XT : PRINT "POR EXEMPLO: X 
1 " 

165 FOR I = 1 TO 2000: N 
EXT : HOME 

170 HTAB (30): VTAB (20) 

: PRINT "XI" 

180 HPLOT 210,150 TO 210 

,101 

190 HPLOT 210,101 TO 140 

,101 

195 VTAB (13): HTAB (18) 

: PRINT "Yi" 

200 GOSUB 9000 


210 HTAB (1): VTAB (21): 
PRINT " VAMOS AGORA ESCOL 
HER DOIS PONTOS, UM COM X 

MAIOR QUE XI E OUTRO MENOR 

// 

220 FOR I = 1 TO 2000: N 
EXT 

230 GOSUB 8000 
235 Z = 1 

240 HTAB (26): VTAB (20) 

: PRINT "XO" 

250 HTAB (36): VTAB (20) 

: PRINT "X2" 

270 HPLOT 180,150 TO 180 
,135 

280 HPLOT 180,135 TO 140 
,135 

290 HPLOT 248,150 TO 248 
,35 

300 HPLOT 248,35 TO 140, 
35 

310 VTAB (17): HTAB (18) 

: PRINT "YO" 

320 VTAB (5): HTAB (18): 
PRINT "Y2" 

325 IF Z = 0 THEN GOTO 
350 

330 HTAB (I): VTAB (21): 
PRINT "VAMOS TRAÇAR UMA R 
ETA POR ESTES PONTOS" 

340 FOR I = i TO 2000: N 
EXT : HCOLOR = 0:Z = 0: G 
OTO 240 

350 HCOLOR = 7 

360 HPLOT 165,150 TO 250 

,30 

380 FOR I = 1 TO 2000: N 
EXT 

390 HTAB (1): VTAB (21): 
PRINT " VAMOS AGORA APROX 
IMAR ESTES PONTOS UM DO OU 
TRO" 

400 FOR I = 1 TO 1000: N 
EXT 

435 Z = 1 

440 HTAB (26): VTAB (20) 

: PRINT " " 

450 HTAB (36): VTAB (20) 

: PRINT " " 

460 VTAB (17): HTAB (18) 

: PRINT " " 


470 VTAB (5): HTAB (18): 
PRINT " " 

480 FOR I = 1 TO 2000: N 
EXT 

540 HTAB (28): VTAB (20) 

: PRINT "XO" 

550 HTAB (32): VTAB (20) 

: PRINT "X2" 

560 VTAB (16): HTAB (18) 

: PRINT "YO" 

570 VTAB (11): HTAB (18) 

: PRINT "Yi* 

575 HCOLOR = 0 

580 HPLOT 165,150 TO 250 

,30 

585 HCOLOR = 7 
600 Z = 1 

670 HPLOT 195,150 TO 195 
,120 

680 HPLOT 195,120 TO 140 
,120 

690 HPLOT 220,150 TO 220 
,85 

700 HPLOT 220,85 TO 140, 
85 

710 IF Z = 0 THEN GOTO 
800 

720 HTAB (1): VTAB (21): 
PRINT "VAMOS TRAÇAR UMA R 

ETA QUE UNE ESTES PON-TOS 

// 

730 FOR I = 1 TO 2000: N 
EXT :Z = 0: HCOLOR = 0: G 
OTO 670 

800 HCOLOR = 7 

810 HPLOT 170,150 TO 250 

,45 

820 FOR I = 1 TO 2000: N 
EXT 

830 TEXT 

835 HTAB (1): VTAB (10): 
PRINT " VOCE DEVE TER NOT 
ADO QUE :" 

840 FOR I = 1 TO 2000: N 
EXT 

850 HOME : HTAB (1): VTA 
B (10): PRINT "X2 APROXIMA 
-SE CADA VEZ MAIS DE XI" 
860 PRINT : PRINT "Y2 AP 
ROXIMA-SE DE YO" 

865 PRINT 
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870 HTAB (10): PRINT "(X 


1090 FOR I = 1 TO 1000: 

2-X0M0" 


NEXT : HCOLOR = 0:Z = 0: 

875 PRINT 


GOTO 1050 

880 HTAB (Í0): PRINT "(Y 


1200 HCOLOR = 7 

2-Y0M0" 


1210 HPLOT 175,150 TO 26 

890 FOR I = 1 TO 2000: N 


5,30 

EXT : H0HE 


1220 GOSUB 9000 

900 HTAB (i>: VTAB (Í0): 


1225 TEXT 

PRINT " P0REH, A RAZAOs": 


1230 HTAB (1): VTAB (10) 

PRINT 


: PRINT " A RETA TORNOU-SE 

9Í0 PRINT " (Y2-Y0)/(X2 


TANGENTE A CURVA" 

-X0) * 


1240 FOR I = 1 TO 2000: 

915 PRINT 


NEXT : HOME : 

920 PRINT " E' DIFERENTE 


1250 PRINT "PODEMOS DEFI 

DE ZERO " 


NIR DERIVADA NUM PONTO COM 

930 FOR I = 1 T0 2000: N 


0;" 

EXT : HOME 


1255 PRINT : PRINT " A I 

940 HTAB (í): VTAB (10): 


NCLINACAO DA RETA TANGENTE 

PRINT "ESTA RAZA0 QUANDO 


'A CURVA NESTE PONTO" 

X2 E' DIFERENTE DE X0" 


1260 PRINT : PRINT " EXI 

950 PRINT "E, C0NSEQUENT 


STEM OUTRAS DEFINIÇÕES DE 

EMENTE," 


DERIVADA" 

960 PRINT : PRINT " Y2 E 


1270 PRINT : PRINT " CON 

' DIFERENTE DE Y0" 


SULTE BONS LIVROS E CALCUL 

970 PRINT : PRINT * E’ A 


0 DIFERENCIAL E INTEGRAL P 

MEDIDA DA INCLINACAO DA R 


ARA APOFUNDAR-SE NO ASSUNT 

ETA DEFI-NIDA PELOS PONTOS 


0" 

(X2,Y2) E (X0,Y0)" 


1280 FOR I = 1 TO 3000: 

980 FOR I = 1 T0 2000: N 


NEXT : HOME 

EXT : HOME 


1300 HTAB (1): VTAB (10) 

990 HTAB (1): VTAB (10): 


: PRINT " BOA SORTE EM SEU 

PRINT " N0 NOSSO CASO, A 


S ESTUDOS" 

RETA E' SECANTE 'A CURVA 


7999 END 

X*2": PRINT 


8000 REM GRAFICO DA FUN 

1000 PRINT " 0 QUE AC0NT 


CAO X A 2 

ECERIA COM A SECANTE SE (X 


8010 HGR : HCOLOR = 7 

2-XO) TENDESSE A ZERO ?" 


8020 HPLOT 140,1 TO 140, 

1010 60SUB 9000 


150: HPLOT 1,150 TO 278,15 

1020 GOSUB 8000 


0 

1030 FOR I = 1 TO 2000: 


8030 FOR X = 0 TO 11 STE 

NEXT : HCOLOR = 7 


P .1 

1035 Z = 1 


8040 LET Y = INT (X * 2 

1040 HTAB (28): VTAB (20 


+ 0.5) 

): PRINT "X2=X0" 


8050 HPLOT X * 10 + 140, 

1050 HPLOT 210,150 TO 21 


150 - Y 

0,101 


8055 HPLOT 140 - X * 10, 

1060 HPLOT 210,101 TO 14 


150 - Y 

0,101 


8060 NEXT X 

1070 VTAB (13): HTAB (14 


8999 RETURN 

): PRINT "Y2=Yi" 


9000 HTAB (1): VTAB (21) 

1080 IF Z = 0 THEN GOTO 


: PRINT "DIGITE QUALQUER T 

1200 


ECLA": GET At: HOME : RETU 

■ 


j 

i 


i 
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Assembly 6502 
Aula VII 

Gustavo Egidio de Almeida 


Nesta edição, apresentamos um progra¬ 
ma muito especial. Tão especial que esta 
aula será dedicada eclusivamente a ele. 

0 programa em questão aborda toda a 
técnica gráfica e em cores que pode ser 
usado na tela de seu TK 2000. 

Com ele você aprenderá todos os ma¬ 
cetes e estará dando um grande passo no 
aprendizado da linguagem Assembly do 
6502. 
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0 Byte é representado no vídeo conten¬ 
do 8 linhas por 07 colunas. 

Na alta resolução, cada linha impressa 
na tela é denominada Microlinha. 

Portanto um byte apresenta 8 
microlinhas. 

No modo baixa resolução a tela é divi¬ 
dida em 40 colunas por 24 linhas. 

Tendo um byte situado nessa tela cor¬ 
responderá a uma posição desta tela, nu¬ 
ma respectiva coluna e linha. 

No modo alta resolução, o número de 
colunas continua o mesmo, porém núme¬ 
ro de linhas, aumenta sensivelmente. 

No modo alta resolução, dividimos ca¬ 
da linha do modo baixa resolução por 8 mi- 
crolinhas, obtendo assim o total de 24 x 
8 microlinhas (192 microlinhas) na tela do 
TK-2000. 

Assim, para representar um byte no ví¬ 
deo, devemos construí-lo de modo a ter 8 
linhas por 7 colunas. 

A área livre para construção de imagens 
na tela do televisor pode estar na página 


um de vídeo (a mais usada) nos endere¬ 
ços $ 2000 a $ 3FFF. 

Vamos construir um byte. 

Para construção de bytes que vão for¬ 
mar uma tela, utilizamos folhas de papel 
quadriculado. 

Tomamos agora 8 linhas (8 quadrilinhas) 
por 7 colunas e obtemos então um byte. 

Traçamos agora uma linha divisória 
(fig.01), deixando 4 colunas na esquerda 
e 3 colunas na direita do byte. 

Fazendo essa divisão, podemos repre¬ 
sentar agora cada linha do byte através de 
um determinado número hexadecimal que 
será codificado pelo computador. 

Vamos representar uma letra qualquer: 



Como vemos, o byte é numerado em 
sua primeira metade de 1 à 8 e em sua se¬ 
gunda metade de 1 à 4. 

Para codificar as linhas, contamos quais 
os bytes que estão setados (marcados por 
cruzinhas). 

Para formar o byte hexadecimal, pega¬ 
mos, primeiramente o número formado pe¬ 
lo lado direito do byte e depois o número 
formado à esquerda deste. 

Assim, na primeira linha, temos o valor 
08. Na segunda linha, 14. Na terceira, 22. 
Na quarta, 3E. Na quinta, sexta, sétima e 
oitava linhas, o valor 22. 

Veja que, para formar a quarta linha da 
caixa teremos que agir da seguinte forma: 

Somamos todos os bytes setados da 
metade direita do byte, obtendo assim o 


número 2 + 1 = 3; 

Em seguida somamos os bytes da ou¬ 
tra metade do byte, ou seja 8 + 4 + 2 = E 
(em hexadecimal); 

Formamos assim, o valor 3E que repre¬ 
senta a quarta linha do byte formado pela 
letra A. 

Vemos então que, para representarmos 
graficamente um byte na tela, pre cisamos 
de oito códigos hexadecimais. Porém, co¬ 
mo fazemos para obtêlos num determina 
ponto do vídeo? 

Para conseguir isto, devemos recorrer ao 
"mapa da tela", que está impresso na pá¬ 
gina 47 do manual técnico do TK-2000. 

Observando este mapa, temos os ende¬ 
reços em hexadecimal (coluna da esquer¬ 
da) de cada início de linha e de microlinha 
que pode ser observado no quadro à di¬ 
reita em destaque. 

Assim, vemos que o primeiro endereço 
disponível para colocarmos nossa primei¬ 
ra linha de byte, é o valor $2000 da 
memória. 

Vamos então, com o auxílio de um pro¬ 
grama, imprimir na tela a Letra A. 

Programa Assembly - Listagem 1 (dese¬ 
nho letra A) 


0 800 - 20 32 F8 
0 803 - AD 54 CO 
0 806 - AD 50 CO 
0 809 - A9 08 
0 808 - 8D 00 20 
0 80E - A9 14 
0 810 - 8D 00 24 
0 813 - A9 22 
0 815 - 8D 00 28 
0 818 - A9 3E 
0 81A - 8D 00 2C 
0 81D - A9 22 
0 81F - 8D 00 30 
0 822 - A9 22 
0 824 - 8D 00 34 
0 827 - A9 22 
0 829 - 8D 00 38 
0 82C - A9 22 
0 82E - 8D 00 3C 
0 831 - 4C 31 08 


JSR $ F832 
LDA $ C054 
LDA $ C050 
LDA $08 
STA $ 2000 
LDA $14 
STA $ 2400 
LDA $22 
STA $ 2000 
LDA $3E 
STA $ 2C00 
LDA $22 
STA $ 3000 
LDA $22 
STA $ 3400 
LDA $22 
STA $ 3800 
LDA $22 
STA $ 3C00 
JMP $ 0831 


Vamos analisá-lo linha por linha: 

- É chamada a sub-rotina que provoca um 
HOME na tela. 

- Seleciona o vídeo colorido; 

- "Seta" a primeira página de vídeo; 
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CURSOS 


- Começa a impressão da letra A. 


$ 7000 







- 0 811 - B9 00 80 

LDA $ 8000,Y 

0 valor *08 (que representa a primeira 

- 

00 

01 

60 

3C 

70 

OE 

07 

00 

- 0 814 - 8D OD 09 

STA $ 090D 

linha do byte), é "jogador" no endereço. 

- 

00 

02 

10 

49 

08 

06 

06 

00 

- 0 817 - B9 00 90 

LDA $ 9000,Y 

0 valor * 14 é armazenado no endere- 

- 

00 

04 

09 

08 

05 

67 

OE 

00 

- 0 81A - 8D OC 09 

STA $ 090C 

ço $ 2000 que representa a segunda linha 

- 

00 

04 

09 

78 

04 

44 

52 

00 

- 0 810 - C8 

INY 

do byte. 

- 

00 

04 

08 

48 

04 

44 

22 

00 

- 0 8LE - 84 30 

STY $30 


- 

00 

04 

09 

08 

04 

44 

22 

00 

- 0 820 - 20 00 09 

JSR $ 0900 

* 22 - $ 2800 

- 

00 

02 

11 

09 

08 

44 

22 

00 

- 0 823 - 4C OF 08 

JMP $ 080F 

* 3E- $ 2C00 

- 

00 

01 

63 

1C 

71 

6E 

27 

00 



* 22 - $ 3000 

- 

15 

00 

00 

00 

00 

00 

00 

2A 

Sub-rotina de Impressão na Tela 

* 22 - $ 3400 

- 

15 

OE 

71 

71 

71 

63 

47 

2A 

- 0 900 - EA 

NOP 

* 22 - $ 3800 

- 

15 

04 

22 

22 

22 

13 

47 

2A 

- 0 901 - EA 

NOP 

* 22 - $ 3C00 

- 

14 

04 

24 

24 

24 

09 

02 

OA 

- 0 902 - EA 

NOP 

Este programa foi desenvolvido com o 

- 

14 

01 

47 

67 

64 

09 

7E 

OA 

- 0 903 - EA 

NOP 

intuito de ser mais explicativo possível, 

- 

14 

01 

02 

22 

24 

09 

7E 

OA 

- 0 904 - EA 

NOP 

não levando em conta o seu tamanho e a 

- 

14 

01 

04 

14 

14 

09 

02 

OA 

- 0 905 - EA 

NOP 

economia de bytes. É lógico que pode ter 

- 

14 

01 

02 

22 

22 

13 

47 

OA 

- 0 906 - AO 08 

LDY * $08 

seu tamanho reduzido com o uso de ins¬ 

- 

14 

03 

41 

71 

71 

63 

47 

OA 

- 0 908 - BD 00 70 

LDA $ 7000,X 

truções indexadas. 

- 

14 

00 

00 

00 

00 

00 

00 

OA 

- 0 90B - 99 00 00 

STA $ 00 00 

Como vemos, o funcionamento do pro¬ 

- 

14 

00 

00 

00 

00 

00 

00 

OA 

- 0 90E - E8 

INX 

grama é bem simples não devendo haver 

- 

14 

00 

00 

OA 

55 

28 

00 

OA 

- 0 90F - 88 

DEY 

portanto, maiores dificuldades no seu 

- 

14 

00 

05 

2A 

55 

2A 

50 

OA 

- 0 910 - DO F6 

BNE $ 0908 

aprendizado. 

- 

14 

00 

05 

2A 

55 

2A 

50 

OD 

- 0 912 - 60 

RTS 

Vamos passar agora um programa todo 

- 

14 

00 

55 

2F 

FF 

7E 

55 

OA 



especial de nossa aula, que utiliza todos 

- 

14 

00 

55 

71 

2A 

47 

55 

OA 

$ 7000 - Caracteres 


os recursos gráficos da tela, inclusive as 

- 

15 

2A 

55 

55 

AA 

55 

55 

2A 



quatro cores disponíveis: branco, azul, ver¬ 

- 

15 

2A 

55 

55 

AA 

55 

55 

2A 

- 8000 - 20 24 28 

9000 - 00 00 

de e vermelho. 

- 

15 

2A 

55 

55 

AA 

55 

55 

2A 

2C 30 34 

00 00 

A primeira coisa que devemos fazer 

- 

00 

00 

55 

71 

2A 

43 

55 

00 

38 

00 00 

quando desejamos imprimir um desenho 

- 

00 

00 

55 

2F 

FF 

7E 

55 

00 

3C 

00 00 

qualquer na tela, é se utilizar de uma fo¬ 

- 

00 

00 

05 

2A 

55 

2A 

50 

00 

20 24 28 

80 80 

lha de papel quadriculado, para codificar 

- 

00 

00 

05 

2A 

55 

2A 

50 

00 

2C 30 34 

80 80 

a figura em bytes e seus respectivos bites. 

- 

00 

00 

00 

OA 

55 

28 

00 

00 

38 

80 80 

Com o programa que apresentaremos a 

- 

00 

00 

00 

00 

00 

00 

00 

00 

3C 

80 80 

seguir, será possível codificar a figura ou 

- 

00 

00 

00 

00 

00 

00 

00 

00 

21 25 

00 00 











29 2D 

00 00 



31 35 
39 3D 21 
25 29 
20 31 35 
39 3D 


00 00 
00 00 
80 80 
80 80 
80 80 
80 80 


tranpô-la no vídeo de seu computador. Rotina Principal 

$ 7000 - Apresentaremos agora os ca¬ 
racteres a serem impressos. Serão dados 
os códigos de cada uma das 32 microli- 
nhas, divididas em conjuntos de 8 bytes 
cada. 

O programa contém uma rotina de im¬ 
pressão inversa, que vai do oitavo para o 
primeiro byte, do sentido direito para 
esquerda. 


- 0 800 - 20 32 F8 

- 0 803 - AD 54 CO 

- 0 806 - AD 50 CO 

- 0 809 - A2 00 

- 0 808 - AO 00 

- 0 80D - 84 30 

- 0 80F - A4 30 


JSR $ F832 
LDA $ C054 
LDA $ C050 
LDX * $ 00 
LDY * $ 00 
STY * $ 30 
LDY * $ 30 


As tabelas contém os caracteres a se¬ 
rem impressos na tela, e os endereços da 
página de vídeo. 

Os caracteres a serem impressos na tela 
estão a partir do endereço $ 7000. Com 
os conteúdos dos endereços $ 8000 e $ 
9000 agrupados dois a dois, formaremos 
todos os endereços do vídeo. 

Exemplo: $ 8000 - 20 $ 9000 - 00 

Formamos o endereço $ 2000. 

Digite o programa, rode-o e tente com¬ 
preender linha por linha o seu 
funcionamento. 

Como este programa é o mais compli¬ 
cado de nosso curso de Assembly, enten 
demos que você poderá ter alguma difi¬ 
culdade em compreendê-lo. 

Não se importe porém, com o emprego 
de cores nas figuras, esta técnica será ex¬ 
plicada no próximo número, com mais 
detalhes. 

Rode o programa e observe o seu belo 
efeito. 
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QueeRfl-cflBeçn 


"Um, Dois, 
Três... Muitos" 

Renato da Silva Oliveira 


A partir desta edição passaremos a alternar, mensalmente, a 
publicação de um Quebra-Cabeça com a de uma Solução. Nes¬ 
te número, estaremos publicando a solução do Quebra-Cabeça 
"Um, Dois, Três... Muitos". Na próxima edição publicaremos ou¬ 
tro Quebra-Cabeça. 

Todos os demais Quebra-Cabeças propostos a partir deste mês 
serão respondidos pelo próprio Nabor ou pela Dinorá ou por al¬ 
gum de nossos amigos. 

A seguir, estão listados os dois programas criados pela Dino¬ 
rá sob os efeitos misteriosos do suco de morangos silvestres hin¬ 
dus do Ramarujan. Para compreender melhor como os progra¬ 
mas funcionam, acompanhe seus fluxogramas. A idéia funda¬ 


mental desses programas é fazer com que, sempre que o valor 
calculado pelo micro for maior ou igual a dez (10), uma variável 
contadora seja incrementada uma vez e o valor seja dividido por 
dez (10). Com isso a variável contadora indicará quantas vêzes 
o valor final foi dividido por dez, e o valor final será sempre me¬ 
nor que dez. Podemos então escrever o resultado como sendo 
o valor final, vezes dez, elevado ao conteúdo da variável conta¬ 
dora. Nos programas da Dinorá, o valor final fica na variável [B] 
e a variável contadora é [A]. O resultado é 


A 

B x 1 O 


Fluxograma 1 - Programa Fatorial; 


1 FQTf! 

1 

LU 

IQ 

INPÜT G 

2Q 

LET R =0 

30 

LET 5=1 

4Q 

FOR F = 1 TO G 

50 

LET 5 = 5 * F 

60 

IF 5<10 TNEN GOTO 3Q 

7Q 

LET 5=5/10 

30 

LET R =R +1 

90 

IF B>=10 THEN GOTO 70 

100 

NEXT F 

110 

PRINT “0 FRTORIRL DE !! ; G ; i! 

E 1 

5;TR5 32; “UEZES IQ ELEURDO 

H POTENCIR “R; M . “ 

Fluxograma 2 - Programa exponenciação. 



10 

INPÜT G 

20 

LET 

R = 0 

30 

LET 

6 = 1 

40 

FOR 

F = 1 TO G 

50 

LET 

6=6*4Q 

30 

IF 

B<10 THEN GOTO 90 

70 

LET 

5=5/10 

30 

LET 

R =R +1 

90 

IF 

5>=10 THEN GOTO 7 

100 

NEXT F 

110 

PRINT “40 ELEURDÜ R 


G ; M E 

;B;TR6 32; M UEZES IQ ELEURDO R 
POTENCIR !! ; R; 8! . “ * 


PROGRAMA FATORIAL: 



FLUXOGRAMAS 


PROGRAMA EXPONENOAÇÃO: 

© 

®Gí_l 


A = O 
B = 1 


-<(k. 1,6,1 )> 
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A Microsoft tem 120 programas em fitas e disquetes à sua disposição. 
_ _São sistemas aplicativos para acompanhar e agilizar os negócios 
de sua empresa. E também jogos eletrônicos para você e sua família 

_se divertirem muito. Todos especiais para TK-83, TK-85; - 

TK-2000, Applele compatíveis. E todos com a mesma qualidade- - 

_ dos 100.000 programas já vendidos em todo o Brasifc- - 

“Procure o revendedor Microsoft mais próximo (se não encontrar os 
programas Microsoft escreva para a Caixa Postal 54221 - CEP 0-1000? 
“S. Paulo-SP). Você encontrará os melhores programas da sua vida.. 

















Filiada à ABICOMP 


A Microdigita 
lança no Brasi 
o micra pessoal 
demaiorsucesso 
no munda 

A partir de agora a história dos 
micros pessoais vai ser contada em duas 
partes: antes e depois do TK 90X. 

0 TK 90X é, simplesmente, o único 
micro pessoal lançado no Brasil que 
merece a classificação de "software 
machine": um caso raro de micro que 
pela sua facilidade de uso, grandes 
recursos e preço acessível recebeu a 



atenção dos criadores de programas e 
periféricos em todo o mundo. 

Para você ter uma idéia, existem 
mais de 2 mil programas, 70 livros, 30 
periféricos e inúmeras 
revistas de usuários disponíveis 
para ele internacionalmente. 


E aqui o TK 90X já sai com mais de 
100 programas, enquanto outros estão 
em fase final de desenvolvimento para 
lhe dar mais opções para trabalhar, 
aprender ou se divertir que com qualquer 
outro micro. 

0 TK 90X tem duas versões de 
memória (de 16 ou 48 K), imagem de 
alta resolução gráfica com 8 cores, 
carregamento rápido de programas 
(controlável pelo próprio monitor), som 
pela TV, letras maiúsculas e minúsculas 
e ainda uma exclusividade: acentuação 
em português. 

Faça o seu programa: peça já uma 
demonstração do novo TK 90X. 

Preço de lançamento* 

16 K - Cr$ 1.899.850 • 48 K - CrS 2.199.850 
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